Ввести с клавиатуры слово,и чтобы оно выводилось на экран без букв А- QBasic(Бейсик)

INPUT "vvedite slovo ", a$
FOR i = 1 TO LEN(a$)
    IF MID$(a$, i, 1) <> "a" THEN b$ = b$ + MID$(a$, i, 1)
NEXT
PRINT b$