Посчитать сколько слов в данной строке

CLS
text$ = " Отговорила роща золотая Березовым, веселым языком "
' выделяем i-й знак и проверяем буква ли это
Flag = 0
FOR i = 1 TO LEN(text$)
letter$ = MID$(text$, i, 1): isletter = 0
IF 128 <= ASC(text$) AND ASC(text$) <= 175 THEN isletter = 1
IF 224 <= ASC(text$) AND ASC(text$) <= 239 THEN isletter = 1
IF 65 <= ASC(text$) AND ASC(text$) <= 90 THEN isletter = 1
IF 97 <= ASC(text$) AND ASC(text$) <= 122 THEN isletter = 1
IF isletter <> 1 AND i <> LEN(text$) THEN
IF letter$ <> " " AND Flag = 0 THEN slov = slov + 1
IF letter$ = " " THEN Flag = 0 ELSE Flag = 1
END IF
NEXT i
PRINT text$
PRINT "Всего слов="; slov
END

CLS
text$ = " Отговорила роща золотая Березовым, веселым языком "
' выделяем i-й знак и проверяем буква ли это
Flag = 0
FOR i = 1 TO LEN(text$)
letter$ = MID$(text$, i, 1): isletter = 0
IF 128 <= ASC(text$) AND ASC(text$) <= 175 THEN isletter = 1
IF 224 <= ASC(text$) AND ASC(text$) <= 239 THEN isletter = 1
IF 65 <= ASC(text$) AND ASC(text$) <= 90 THEN isletter = 1
IF 97 <= ASC(text$) AND ASC(text$) <= 122 THEN isletter = 1
IF isletter <> 1 AND i <> LEN(text$) THEN
IF letter$ <> " " AND Flag = 0 THEN slov = slov + 1
IF letter$ = " " THEN Flag = 0 ELSE Flag = 1
END IF
NEXT i
PRINT text$
PRINT "Всего слов="; slov
END

CLS
text$ = " Отговорила роща золотая Березовым, веселым языком "
' выделяем i-й знак и проверяем буква ли это
Flag = 0
FOR i = 1 TO LEN(text$)
letter$ = MID$(text$, i, 1): isletter = 0
IF letter$ <> " " AND Flag = 0 THEN slov = slov + 1
IF letter$ = " " THEN Flag = 0 ELSE Flag = 1
END IF
NEXT i
PRINT text$
PRINT "Всего слов="; slov
END

CLS
text$ = " Отговорила роща золотая Березовым, веселым языком "
' выделяем i-й знак и проверяем буква ли это
Flag = 0
FOR i = 1 TO LEN(text$)
letter$ = MID$(text$, i, 1)
IF letter$ <> " " AND Flag = 0 THEN slov = slov + 1
IF letter$ = " " THEN Flag = 0 ELSE Flag = 1
NEXT i
PRINT text$
PRINT "Всего слов="; slov
END

DECLARE SUB TEX (t AS STRING)
CLS
DIM t AS STRING
DIM SHARED n
 
t = " Er  ist  ein guter  Programmist "
n = 1
CALL TEX(t)
PRINT "N ="; n
END
 
SUB TEX (t AS STRING)
   t = LTRIM$(RTRIM$(t))
   k = INSTR(t, " ")
   IF k = 0 THEN EXIT SUB
   t = MID$(t, k)
   n = n + 1
   CALL TEX(t)
END SUB