Suchst Du so etwas in der Richtung ?
Code:
Config Serialin = Buffered , Size = 3                      
Taste = Inkey() 
While Taste > 0
   String = String + Chr(taste)
   Taste = Inkey()
Wend