Bau doch mal in die Sendeschleife eine kleine Pause ein:
Code:
   For Z = 1 To 18                      'Sendepuffer 1 bis 18 abarbeiten
   Tx_word = &HB800 + Sendepuffer(z)    'Sendekomando B800 und Pufferinhalt zusammenführen
   Gosub Bereit                       'Auf bereitschaft warten
   Waitms 1                         
   Gosub Rfmwrite                       '1 Sendepuffer Byte übergeben
   Waitms 10                         
   Next Z                               'Nächsten Schleifendurchlauf
... und passe die 10 ms so lange an, bis jedes Zeichen sicher empfangen wird.