hmmm ... das möcht mir nicht so recht gefallen:

A = Inkey()
If A = 128 Then
For I = 1 To 41
Olcd(i) = Inkey()
Next
End If

du beschreibst hier die Variable mit dem Inkey der UART, egal ob da
nun Daten drin stehen oder nicht, dann nämlich mit 0.
Ich verwende die buffered Variante der UART nicht gern.

Bedenke: die UART ist im verhältniss zum Controller schneckenlangsam.

es gibt da 2 Varianten, du kannst den Controller so lange anhalten bis er
empfangen hat z.B. per waitkey Befehl
oder du verwendest den UART Interrupt bei Empfang und lässt den
Knubbel derweil was anderes machen