'frm
Private Sub MSComm1_OnComm()
 
[B]Me.MSComm1.InputLen = 1[/B]
	call CommEvent(me.MSComm1)
 
	msgbox strInput
End Sub
 
 
'modul XXX
public strInput as Variant
 
public functin CommEvent(byVal objComCtrl as mscomm)
 
'Behandeln jedes Ereignisses
Select Case objComCtrl.CommEvent
	'Daten einlesen
    Case comEvReceive    'Anzahl empfangener Zeichen gleich RThreshold
        If (objComCtrl.InBufferCount >= 1) Then
            'Schlaufe für Empfangspuffer lesen
            Do
 
		'Puffer einlesen
                strInput = strInput & objComCtrl.Input
 
		'Auswerten ob die Schlaufe beendet werden muss ->vbCcrlf
                If (InStr(strInput(X), vbCrLf)) Then
                     	'ev'
            		'Puffer leeren
            		'objComCtrl.InBufferCount = 0
			Exit Sub	
 
	    While objComCtrl.inBuffercount > 0
End Select