Private Sub MSComm1_OnComm()
TmpData1 = MSComm1.Input
 
Select Case MSComm1.CommEvent
  Case comRxOver:   MsgBox "Datenverlust"
  Case comEvReceive: Me.ComInput = Me.ComInput + TmpData1
End Select
      ComInput.SelStart = Len(ComInput.Text)
 
On Error Resume Next
If Left(TmpData1, 2) = "xx" Then
 Text1.Text = Mid(TmpData1, 4, 3)
 Text2.Text = Mid(TmpData1, 9, 3)
End If
End Sub