проблема с пробелами(VBA)

В столбце А (n строк) введены символьные строки (предложения), отдельные слова отделяются друг от друга несколькими пробелами. В столбце В отразить предложения без лишних пробелов.

только можно простыми функциями обработки строк.

вот я что то попыталась сделать, но не работает((

Sub пробелы()
i = 2
a = 0
While Cells(i, 2) <> Empty
q = Len(Cells(i, 2))
For a = 1 To q
If a = " " And a + 1 = " " Then
a = a + 1
End If
Next
i = i + 1
Wend
End Sub