Hm, also der Fehler scheint doch recht unregelmäßig zu kommen.

Vielleicht schauen wir nochmal kurz auf die Hardware:
Bitte miss mal die Spannung am MAX232 Baustein nach. Vielleicht reichen die Pegel nicht ganz aus.

Und ansonsten würde mir jetzt nur noch eins einfallen:
Schick den empfangenen String mal erst dann zurück wenn er vollständig übertragen wurde (erfordert ein <Enter> am Ende des Strings (chr10 und chr13):

Code:
dim str as string * 15
dim Buchstabe as string * 1
str=""
Do 
   B = Inkey(#4) 
   buchstabe = chr(b)
   If b = 13 then
     Print #4 , str
     str = ""
   Else
     str = str + buchstabe
   End If
Loop
Probier dann mit diesem Code nochmal die Zeichenketten die du oben schonmal probiert hast. Wenns dann immer noch net klappt muss es eigentlich an der Hardware liegen.

Gruß Robodriver