Hallo,

wahrscheinlich ist die "for count ... next" Schleife zu schnell - Inkey wird möglicherweise öfter mal kein Zeichen bekommen.

Versuch statt Inkey mal Waitkey. Das wartet immer laut BASCOM-HELP bis wirklich ein Zeichen da ist.

Also:
Code:
   For Count = 1 To 13
       Zeichen = Waitkey(#3)
       Empfang = Empfang + Zeichen
    Next
Gruß
Searcher