da ist der fehler:

Daten = Inkey(#2)
Print Daten

print daten interpretiert Bascom als gebe den zahlenwert des
empfangenen byte-zeichens aus.

printbin löst die chauce oder print chr(daten); geht auch.