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))
 
        Loop
 
        Dim o As Integer
        For o = 0 To Bytes.Count - 1
            Me.Invoke(Sub() txtMeldungÜbergang.Text &= _
              System.Text.Encoding.Default.GetString(Bytes.ToArray))
            Me.Invoke(Sub() txtÜbergang.Text &= Bytes.Item(o))
        Next
 
 
    End Sub