Dim nbToRead As Integer = .BytesToRead
                        ReDim ByteIn(nbToRead)
                        .Read(ByteIn, 0, nbToRead)
                        PufferString = CRC.ByteToHex(ByteIn)
                        Me.Invoke(Datenanzeigen)

        ByteInII = ByteIn
        Dim Id As String = CRC.Hex2(ByteInII(3))
        TextBox7.Text = Id
 
        TextBox1.AppendText(PufferString) '(PufferString)       ' Text am Ende _
          hinzufügen
        TextBox1.ScrollToCaret() ' Scrollen bis zum neuen Text

Michael MP Profitlich