Подсчитать количество шипящих букв в слове- QBasic(Бейсик)

INPUT a$
b=LEN(a$)
k=0
FOR i=1 TO b
s$=MID$(a$,i,1)
SELECT CASE s$
CASE "ш":k=k+1
CASE "ч":k=k+1
CASE "щ":k=k+1
CASE "ц":k=k+1
END SELECT
NEXT i
PRINT(k)

a$ = "Шипящие"
k = 0
FOR i = 1 TO LEN(a$)
IF INSTR("ЦЧШЩцчшщ", MID$(a$, i, 1)) THEN k = k + 1
NEXT i
PRINT k