по заданной строке и символу определить сколько раз встречается этот символ в этой строке. информатика .Qbasike функции

DIM b AS STRING * 1
DIM a AS STRING * 100
DIM i, k, n AS INTEGER
INPUT "INPUT STRING", a$
INPUT b$
k = LEN(a$)
FOR i = 1 TO k
IF MID$(a$, i, 1) = b$ THEN 
n = n + 1
END IF
NEXT i
PRINT n
END