Private Sub SerialPort1_DataReceived(sender As Object, e As _
   SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        Dim msg As String = SerialPort1.ReadLine.Trim()
 
        Select Case e.EventType
            Case IO.Ports.SerialData.Chars
                ' Ein Zeichen wurde empfangen und im Eingabepuffer platziert.
 
 
                '  msg = msg & msg
            Case IO.Ports.SerialData.Eof
                ' Das Dateiendezeichen wurde empfangen und im 
                '  Eingabepuffer platziert. 
 
 
        End Select
        Me.zerlegen(msg)
    End Sub
 
 Private Sub ZeigeWert(ByVal text As String)
 
 
        If Me.TextBox1.InvokeRequired Then
            Dim d As New TextBoxCallback(AddressOf ZeigeWert)
            Me.Invoke(d, New Object() {text})
        Else
 
                Me.TextBox1.AppendText(text & vbCrLf)
                Me.TextBox1.ScrollToCaret()
 
       End If
 End Sub

Private Sub MessageBroker_DeviceConnected(sender As Object, e As _
  DeviceEventArgs)
        ' Show info in our console
        UpdateConsoleDeviceConnected(e)
 
    End Sub
 
 
Private Sub UpdateConsoleDeviceConnected(e As DeviceEventArgs)
       If TextBox1.InvokeRequired Then
            ' Call this method again but on the GUI thread
 TextBox1.Invoke(New VisualizeDeviceEventHandler(AddressOf _
   UpdateConsoleDeviceConnected), New Object() {e})
        Else
              AddToLog("Connected to device: " + e.UniqueDeviceID)
 
 
        End If
End Sub
 
Public Sub AddToLog(logString As String)
        TextBox1.AppendText(logString + Environment.NewLine)
    End Sub