Da seh ich das Problem, daß du ja genau das Zeichen abcheckst, das noch NICHT gekommen ist
Buffer(Bufferindex) = INKEY() DA STEHT DAS ZEICHEN

incr Bufferindex ' !!!!!!!!!!!!!!!!!!!!!!!!

If Bufferindex > 7 Then
Goto Abfrage:
End If
End If

Abfrage:
If Buffer(bufferindex) = B Then BUFFERINDEX ZEIGT EIN ZEICHEN HINTER DAS, DAS GRAD GEKOMMEN IST