Hmm wenn ich dein Programm jetzt richtig deute empfängst du immer nur ein Zeichen. die metode Inkey() holt immer nur ein Zeichen aus dem RS232 Buffer. Du musst eine Schleife zum Auslesen generieren.
Der code müsste deinen Funkpuffer Komplett auslesen und in den String Dat Schmeißen.
Hoffe das hilft dir weiter.
Mfg Mero

Code:
 
Do                                                     
      Z = Inkey()
      If Z <> 0 Then Dat = Dat + Chr(z)
Loop Until Z = 0