Hi, ich hab das etz ein wenig anders gelöst, nachdem ich nen alten VB Schmöker gewälzt hab:

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

Private Sub MSComm1_OnComm()
Dim Eingang As String
Dim Eingang_replaced As String

Select Case MSComm1.CommEvent
 Case comOverrun:   MsgBox "Datenverlust!"
 Case comRxOver:    MsgBox "Datenverlust!"
 Case comEvReceive: Eingang = MSComm1.Input
End Select
Text1.Text = Replace(Eingang, vbCrLf, "")
VScroll1.Value = 255 - CInt(Replace(Eingang, vbCrLf, ""))
End Sub
Das komische ist: Es funktioniert alles wunderbar, bis ich das Fenster (während das proggy läuft) verschiebe. Dann steht in der textbox plötzlich ne ellenlange (nicht immer die gleiche) Zahl und die Fehlermessage lautet:
"overflow"
Was zum geier ist da los? liegt es am replace-Befehl?