Private Sub MSComm1_OnComm()
Dim myBuffer As String 'Achtung evtl. ausserhalb (im Modul) deklarieren - jetzt 
' wird myBuffer immer wieder geleert bei jedem comEvReceive
Select Case MSComm1.CommEvent
 
Case comEvReceive
    myBuffer = MSComm1.Input
    If Len(myBuffer) = 6 Then
        Call AuswerteFunktion
    End If
 
End Select
End Sub