Private Delegate Sub DelegateAuswerten(ByVal Telegramm As String)
 
    Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      SerialPort1.DataReceived
        Dim newLine As String = Hex(SerialPort1.ReadByte)
        Me.Invoke(New DelegateAuswerten(AddressOf Auswerten), New Object() _
          {newLine})
    End Sub
 
    Private Sub Auswerten(ByVal Telegramm As String)
        Me.TextBox1.Text &= Telegramm
    End Sub