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