Сколько раз в последовательности встречается буква W - QBasic

Формулировка задачи:

В колледже прошел курс Qbasic,я из за слабого здоровья много пропустил,и теперь проблемы. нужно решить к завтра задачи. Помогите решить. часть я решил а эти совсем не понимаю. 3)с клавиатуры вводится последовательность из 8 латинских букв. Сколько раз в ней встретится буква W.регистр букв не учитывать. Буду рад,если поможете.

Решение задачи: «Сколько раз в последовательности встречается буква W»

Листинг программы

DECLARE FUNCTION f! (s AS STRING)
CLS
DIM s AS STRING
INPUT "TEXT = "; s
s = UCASE$(s)
 
PRINT f(s)
END
 
FUNCTION f (s AS STRING)
   DIM s1 AS STRING
  
   IF LEN(s) = 1 THEN
      IF s = "W" THEN f = 1
   ELSE
      s1 = LEFT$(s, 1)
      IF s1 = "W" THEN
         f = f(RIGHT$(s, LEN(s) - 1)) + 1
      ELSE
         f = f(RIGHT$(s, LEN(s) - 1))
      END IF
   END IF
END FUNCTION

Объяснение кода листинга программы

Список действий в коде:

Ввод текста в переменную s с помощью функции INPUT.
Приведение текста к верхнему регистру с помощью функции UCASE.
Вызов функции f с аргументом s.
Определение функции f с аргументом s.
Проверка длины строки s. Если она равна 1, то выполняется следующая проверка.
Проверка, является ли символ строки s буквой W. Если да, то значение переменной f равно 1.
Если длина строки больше 1, то выполняется следующее действие.
Создание новой переменной s1, которая содержит первый символ строки s.
Проверка, является ли символ переменной s1 буквой W. Если да, то значение переменной f увеличивается на 1.
Если символ переменной s1 не является буквой W, то значение переменной f присваивается значению функции f, вызванной с аргументом RIGHT$(s, LEN(s) - 1).
Выход из функции f.