Public Class Form1
    Dim Wert As String
    Private Delegate Sub DelegateSub()
    Private TextboxAktualisieren As New DelegateSub(AddressOf Wertübergabe)
 
    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

Gruß
Christoph