Option Explicit
 
Private Sub Command2_Click()
End
End Sub
 
Private Sub Form_Load()
 
'Einrichten der MSComm-Schnittstelle
On Error Resume Next
 
MSComm1.CommPort = 3
MSComm1.Settings = "9600,N,8,1"
 
MSComm1.InputLen = 0
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
 
 
End Sub
Private Sub Command1_Click()
 
Dim InString As String
' Es sollen alle verfügbaren Daten abgerufen werden.
 
On Error Resume Next
 
 
MSComm1.InputLen = 0
 
' Prüfen, ob Daten vorhanden sind.
If MSComm1.InBufferCount Then
 
   ' Daten lesen.
   InString$ = MSComm1.Input
   Text1.Text = InString$
End If
End Sub
 
'empfangen von Daten
 
Private Sub MSComm1_OnComm()
 
On Error Resume Next
MSComm1.PortOpen = True
 
    Select Case MSComm1.CommEvent
        Case comOverrun:   MsgBox "Datenverlust!"
        Case comRxOver:    MsgBox "Datenverlust!"
        Case comEvReceive: Text1.Text = MSComm1.Input
    End Select
'MSComm1.PortOpen = False
 
 
 
End Sub