Public Class Form1

    Dim rr As Object = CreateObject("RoadRunner.sdk")

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        Dim ch As String ' must be string to send :)
        For i = 0 To TextBox1.Text.Length - 1
            ch = TextBox1.Text.Chars(i)
            rr.execute(ch)
        Next i
        rr.execute("Enter")
    End Sub
End Class