Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      myComPort.DataReceived
 
        Dim Bytes As New List(Of Byte)
        Dim b As Byte
        Do While myComPort.BytesToRead > 0
            b = CByte(myComPort.ReadByte)
 
            Me.Invoke(Sub() Bytes.Add(b))
            System.Text.Encoding.Default.GetString(Bytes.ToArray)
            'Me.Invoke(Sub() lblMeldungstext.Text &= "  " & b)
            'Me.Invoke(Sub() lblMeldungstext.Text &= Chr(b))
        Loop
        Dim n As Integer
 
        'For n = 0 To Bytes.Count - 1
        '    Debug.Print(Bytes(n))
        'Next
 
 
        Dim o As Integer
        For o = 0 To Bytes.Count - 1
            Me.Invoke(Sub() lblMeldungstext.Text &= _
              System.Text.Encoding.Default.GetString(Bytes.ToArray))
            Me.Invoke(Sub() txtÜbergang.Text &= Bytes.Item(o))
        Next
 
    End Sub