Hallo,

da am Code ein gewisses Interresse besteht, noch eine Ergänzung:

nach Input Serinpstr:

if Asc(serinpstr) = 10 then
Strsize = Len(serinpstr) - 1
Serinpstr = Right(serinpstr , Strsize)
end if

Das hat folgenden Sinn:

wenn ein String eintrifft, wird nach dem Zeichen 13 ein Interrupt ausgelöst, der das Ganze aus dem Buffer in die Variable holt. Jetzt kann aber noch ein 10 folgen, das im Buffer hängenbleibt. Dieses steht dann beim nächsten String am Anfang. Das wird durch den Code entfernt.