With MSComm1
    .CommPort = 1
    .Settings = "115200,N,8,1"
    .RThreshold = 1 ' AUCH BEREITS OHNE DEN 3 FOLGENDEN VERSUCHT
    .SThreshold = 1
    .InputLen = 0
    .PortOpen = True
End With
 
Private Sub MSComm1_OnComm()
  Select Case MSComm1.CommEvent
    Case comOverrun:   MsgBox "Datenverlust!"
    Case comRxOver:    MsgBox "Datenverlust!"
    Case comEvReceive: Me.txtInput = Me.txtInput + MSComm1.Input
  End Select
End Sub

MSComm1.output = "TEST"