Ich lese Daten vom PC immer mit dem Inkey Befehl ein, daher würde ich das ischrwaiting durch Inkey ersetzen das hat bei mir immer hingehauen.

A= Inkey ()

If A = 49 Then....