Public Class Form1
 
    Dim parity As IO.Ports.Parity
    Dim stopbits As IO.Ports.StopBits
    Dim SerialPort1 As IO.Ports.SerialPort = New IO.Ports.SerialPort("COM1", _
      9600, parity.Even, 7, stopbits.One)
    Dim Wert As String
    Private Delegate Sub DelegateSub()
    Private TextboxAktualisieren As New DelegateSub(AddressOf Wertübergabe)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        End
    End Sub
 
    Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      SerialPort1.DataReceived
 
        Wert = SerialPort1.ReadLine()
        Wert = Wert.Replace(Chr(13), Nothing) 'Hier wir das Zeichen(Ascii 13) 
        ' unterdrückt!
 
        Me.Invoke(TextboxAktualisieren)
 
    End Sub
 
    Private Sub Wertübergabe()
 
        TextBox1.Text = Wert
 
    End Sub
 
End Class