VB Problem

[recycle]

Bei mir gibt's bei folgendem Testcode keine Probleme mit mehr als 8 Zeichen:

'######### Bascom
Do
   Ts = Getadc(0)
   Print "Der Porta.1 hat den Wert: " ; : Print Ts
   Waitms 10
Loop



'####### VB

Private Sub Form_Load()
    With MSComm1
        .CommPort = 1
        .Settings = "19200,N,8,1"
        .PortOpen = True
        .RThreshold = 1
        .SThreshold = 1
        .InputLen = 0
    End With
End Sub

Private Sub Form_Terminate()
    End
End Sub

Private Sub MSComm1_OnComm()
    Select Case MSComm1.CommEvent
        Case comOverrun
        MsgBox "Datenverlust"
        Case comRxOver
        MsgBox "Datenverlust"
        Case comEvReceive
        data_in = MSComm1.Input
        Text1.Text = Text1.Text & data_in
    End Select
End Sub