Private Sub MSComm1_OnComm()
    Select Case MSComm1.CommEvent
        Case comOverrun:   MsgBox "Datenverlust!"
        Case comRxOver:    MsgBox "Datenverlust!"
        Case comEvReceive
            While MSComm1.InBufferCount >= 1
                RS232string = MSComm1.Input
                If RS232string = vbCr Then
                    RS232string = MSComm1.Input
                    If RS232string = vbLf Then
                        MsgBox Zeile
                        Zeile = "" 'Ohne diese Zeile wird nichts ausgegeben ???
                    End If
                Else
                    Zeile = Zeile & RS232string
                End If
            Wend
    End Select
End Sub