hab da was. das erklärt mein problem auch ganz gut.

const Ecs = 27
const Bytes = 1

Dim I As Byte


Do
Serin I , Bytes , B , 0 , 9600 , 0 , 8 , 1
Serout I , Bytes , B , 1 , 9600 , 0 , 8 , 1
If I = Esc Then Exit Do
loop

End

Also:
Was ist "I" und Woher kommt die, und WIE bekomm ich die "27" (ist die ASCII für ESC-Taste) in die "I" hinein??
und wie kann ich da jetzt senden und empfangen?? wie kann man so daten hin und her schicken?? das ist das problem.