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

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