Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal e As  _
SerialDataReceivedEventArgs) Handles myComPort.DataReceived
        Dim blist As New List(Of Byte)
        Do While (myComPort.BytesToRead > 0)
            blist.Add(CByte(myComPort.ReadByte))
        Loop
        Me.Invoke(Sub() DecodeBytes(blist))
    End Sub
 
    Dim puffer as String
 
    Private Sub DecodeBytes(ByVal blist As List(Of Byte))
 
        puffer &= System.Text.Encoding.Default.GetString( _
          blist.ToArray)
    End Sub

txtMeldung.Text = puffer

    Dim endeerreicht As Boolean = False
    Dim Nachricht As String
 
    Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      myComPort.DataReceived
        Dim blist As New List(Of Byte)
        Do While (myComPort.BytesToRead > 0)
            blist.Add(CByte(myComPort.ReadByte))
 
        Loop
        endeerreicht = True
 
        Me.Invoke(Sub() DecodeBytes(blist))
 
 
 
    End Sub
 
    Private Sub DecodeBytes(ByVal blist As List(Of Byte))
        Nachricht &= System.Text.Encoding.Default.GetString(blist.ToArray)
        If endeerreicht = True Then
            txtMeldung.Text = Nachricht
            Nachricht = ""
            endeerreicht = False
        End If
 
    End Sub