Ввести слово и в слове подсчитать количество согласных букв- QBasic(Бейсик)

CLS
INPUT "Vvedite stroku : ", S$
S$ = LCASE$(S$)
Sh$ = "aeiouy"
  FOR i = 1 To LEN(S$): f = 1
      FOR j = 1 TO LEN(Sh$)
         IF MID$(S$, i, 1) = MID$(Sh$, j, 1) THEN f = 0
      NEXT
      k = k + f
  NEXT
PRINT "Kol-vo soglasnyh : "; k