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

CLS
INPUT "vvedite text"; a$
INPUT "vvedite bukvu"; b$
FOR i = 1 TO LEN(a$)
    IF MID$(a$, i, LEN(b$)) = b$ THEN k = k + 1
NEXT
PRINT "k ="; k