Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
        Case comOverrun:   MsgBox "Datenverlust!"
        Case comRxOver:    MsgBox "Datenverlust!"
        Case comEvReceive: RS232string = MSComm1.Input
            Me.Text3 = Me.Text3 + RS232string
End Select
 
Private Sub Command3_Click()
    With MSComm1
    .CommPort = 1
    .Settings = "9600,n,8,1"
    .RThreshold = 1                       
    .SThreshold = 1
    .InputLen = 0                     
    End With
    MSComm1.PortOpen = True
    MSComm1.DTREnable = False
End Sub