Дано слово. подсчитать сколько раз в нем встречается заданная буква qbasic

If Then, For Next, Len, Mid и Print. Парочка переменных.
Можно легко уложиться в пять строчек кода.
Куда ещё проще...