Private Sub Command1_Click() 
 
   Dim comstring As String
   Dim Count As Integer 
 
   With MSComm1
     .CommPort = 1
     .Settings = "9600,N,8,1"
     .PortOpen = True
   End With
 
   MSComm1.InputMode = 0
   MSComm1.InputLen = 0
 
   Count = MSComm1.InBufferCount
   comstring = MSComm1.Input
   MSComm1.Output = "!LS" & Chr(13)
   Text1.Text = comstring & Count
 
End Sub
 
' Kommunikationsereignis
Private Sub MSComm1_OnComm()
   Select Case MSComm1.CommEvent
      Case comOverrun
         MsgBox "Datenverlust!"
 
      Case comRxOver
         MsgBox "Datenverlust!"
 
      Case comEvReceive
         Count = MSComm1.InBufferCount
         comstring = MSComm1.Input
         MSComm1.Output = "!LS" & Chr(13)
         Text1.Text = comstring & Count
 
   End Select
End Sub