Private Sub MSComm1_OnComm(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MSComm1.OnComm
        Dim chPos As Integer
        chPos = 0
 
        'erreignise abfangen
        Select Case MSComm1.CommEvent
            ' Event messages.
        Case 2     ' comEvReceive
                sNachricht += Me.MSComm1.Input()
                For Each ch As Char In sNachricht
                    With sNachricht
                        If ch = vbCrLf Then
                            Me.txtOutput.Text = .Substring(0, .Length - chPos)
                            sNachricht = .Substring(chPos + 1)
                        End If
                        chPos += 1
                    End With
                Next
 
            Case 1008
                'Fehler erreignis overflow --> comEventRxOver
 
        End Select
 
    End Sub