Private Sub Command1_Click()
 MSComm1.Output = "1"
End Sub
 
 
Private Sub MSComm1_OnComm()
 
Dim Eingang As String
 
Select Case MSComm1.CommEvent
    Case comOverrun:    MsgBox "Datenverlust!"
    Case comRxOver:     MsgBox "Datenverlust!"
    Case comEvReceive:  Eingang = Eingang + MSComm1.Input
End Select
Text3.Text = Eingang
 
End Sub
 
Private Sub Form_Load()
 
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
 
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.InputLen = 0
 
End Sub