Private Sub frmHaupt_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Load
        Dim str() As String = IO.Ports.SerialPort.GetPortNames()
        If str.Length = 0 Then
            MsgBox("No Serialport available!", MsgBoxStyle.Critical)
            Me.Close()
        End If
 
        myComPort = New IO.Ports.SerialPort("COM3")
        myComPort.BaudRate = 9600
        myComPort.DataBits = 8
        myComPort.StopBits = IO.Ports.StopBits.One
        myComPort.Parity = IO.Ports.Parity.None
        myComPort.ReceivedBytesThreshold = 1
        myComPort.Open()
        myComPort.Encoding = System.Text.Encoding.Default
        myComPort.NewLine = Chr(1)
    End Sub
 
 
 Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal e As _
   System.IO.Ports.SerialDataReceivedEventArgs) Handles myComPort.DataReceived
 
        Me.Invoke(Sub() lblMeldungstext.Text = myComPort.ReadLine)
 
        'Select Case e.EventType
        '    Case IO.Ports.SerialData.Chars
        '    Case IO.Ports.SerialData.Eof
        'End Select
        'Dim msg As String = Me.myComPort.ReadExisting
 
        'While (msg.Contains(Chr(23)))
        '    'die nachricht ist komplett
        '    Dim tmp = msg.Substring(0, msg.IndexOf(Chr(23)))
        '    ShowText(msg)
        '    msg = ""
        'End While
 
        'ShowText(msg)
 
 
    End Sub
 
    Private Sub ShowText(ByVal text As String)
 
        'Me.Invoke(Sub() Debug.Print(myComPort.ReadLine))
        If lblMeldungstext.InvokeRequired Then
            Dim d As New TextBoxCallback(AddressOf ShowText)
            Me.Invoke(d, New Object() {text})
        Else
            lblMeldungstext.Text = text
        End If
    End Sub