Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      myComPort.DataReceived
        Debug.Print("DR ausgelöst")
        msg = myComPort.ReadLine
        Me.ShowText(msg)
 
    End Sub
 
    Private Sub ShowText(ByVal text As String)
        Debug.Print("ST ausgelöst")
        Dim Nachricht As String
        If lblMeldungstext.InvokeRequired Then
            Dim d As New TextBoxCallback(AddressOf ShowText)
            Me.Invoke(d, New Object() {text})
        Else
            Nachricht &= text
            lblMeldungstext.Text = Nachricht
        End If
 
    End Sub