Imports System.IO.Ports
Public Class Form1
     Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
       Handles MyBase.Load
        myComPort.Open()
        'eventuell eigenes NewLine-Zeichen für Zeilenende angeben
        'myComPort.NewLine = Chr(23)               
    End Sub
    Private Sub myComPort_DataReceived(sender As Object, e As _
      SerialDataReceivedEventArgs) Handles myComPort.DataReceived
        Me.Invoke(Sub() lblMeldungstext.Text = myComPort.ReadLine)
    End Sub
End Class