Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
      Case comEvReceive   ' Anzahl empfangener Zei-
                        ' chen gleich RThreshold
 
         MSComm1.InputLen = 0
         inputString = MSComm1.Input
   End Select
End Sub