Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      myComPort.DataReceived
        Select Case e.EventType
            Case IO.Ports.SerialData.Chars
            Case IO.Ports.SerialData.Eof
        End Select
        Dim msg As String = Me.myComPort.ReadExisting
        Me.Textanzeigen(msg)