Hi! Also ich lese Zeichen so aus:

if serialport1.BytesToRead > 0 then
Do
textbox1.AppendText (chr(SerialPort1.Readbyte))
textbox1.ScrollToCaret
If SerialPort1.BytesToRead = 0 Then
Exit Do
End If
Loop
end if

Vielleicht hilft das ja?
Viele Grüße,
William