Falls du später nicht nur ein Zeichen empfangen musst, könntest du vielleicht so vorgehen (ungetestet):
Code:
dim buffer as string * 10
dim buffer_byte(10) as byte at buffer overlay
dim counter as byte

   ...
   buffer = string(0, 10)
   counter = 0
   do 
      A = Inkey(#1)
      if A > 0 then
          incr counter
          if counter > 10 then
              ' Fehler
              '...
          end if
          buffer_byte(counter) = A
      end if
   loop until A = 0
   
   if counter > 0 then
      'tu etwas mit dem buffer
      ...
   end if
   ...
mfg
Gerold