Произвольная фраза,найти количество слов в этой фразе, слова разделяются один пробелом- QBasic(Бейсик)

CLS
INPUT "vvedite frazu"; a$
k = 1
FOR i = 1 TO LEN(a$)
    IF MID$(a$, i, 1) = " " THEN k = k + 1
NEXT
PRINT k

Тестирование выполнено в программе QB64 ( Скачать )