Задан текст, состоящий из слов - VB

Option Explicit
Private Sub Комманда1_Click()
Dim M() As String
Dim S As String
Dim J
'S = Текст1.Text
S = "Задан текст,  состоящий   из  слов,  которые   разделены одним   или   несколькими  пробелами."
S = S & "  Сформулируйте   новый текст,  включив  в  него   слава   заданного,  разделённые   только одним"
S = S & "   пробелом.   Результаты работы   программы   зафиксировать   в   текстовом   документе."
M = Split(S, " ")
S = ""
For J = 0 To UBound(M) - 1
If M(J) <> "" And M(J + 1) <> "" Then S = S & M(J) & " " & M(J + 1) & " "
Next J
MsgBox S, 64, ""
End Sub