Помогите,пожалуйста,с задачей на QB,заранее благодарен

[Faster999]

Вводится текст, в котором между словами может находиться от одного до трёх пробелов. Составить программу, которая оставит только по одному пробелу между словами и напечатает текст

[EducatedFool]

CLS : INPUT "Input text: ", txt$: res$ = LEFT$(txt$, 1)
FOR i = 2 TO LEN(txt$)
  IF NOT (MID$(txt$, i, 1) = " "   AND RIGHT$(res$, 1) = " ") THEN res$ = res$ + MID$(txt$, i, 1)
NEXT i
PRINT "Result string = "; res$

[Faster999]

спасибо большое)))