Процедура, результатом работы которой является новая строка

Dim i  As Integer, j  As Integer, k(2) As Integer
Private Sub Command1_Click()
j = 0
For i = 1 To Len(Text1.Text)
If Mid$(Text1.Text, i, 1) = " " Then
j = j + 1
k(j) = i
End If
Next
If j = 1 Then
Text2.Text = "Должно быть три слова"
Else
Text2.Text = Mid$(Text1.Text, k(2) + 1, Len(Text1.Text) - k(2)) + " " + Mid$(Text1.Text, k(1) + 1, k(2) - k(1)) + " " + Mid$(Text1.Text, 1, k(1) - 1)
End If
End Sub
 
Private Sub Form_Load()
Text1.Text = "Слово1 Слово2 Слово3"
'Text1.Text = "Слово1 Слово2"
End Sub

Option Explicit
 
Dim T As String
Dim k%, k2%, t1$, t2$, t3$
Const p = " "
Const p2 = p + p
 
Private Sub cmd1_Click()
    T = txt1
    Call Pro1
    k = InStr(T, p)
    k2 = InStr(k + 1, T, p)
    
    If k2 Then
        t1 = Left$(T, k - 1)
        t2 = Mid$(T, k2 + 1) + p
        t3 = Mid$(T, k + 1, k2 - k)
        txt2 = t2 + t3 + t1
    Else
        txt2 = "В строке должно быть три слова"
    End If
End Sub
 
Private Sub Pro1()
    Do
        k = InStr(T, p2)
        If k Then
            t1 = Left$(T, k)
            t2 = Mid$(T, k + 2)
            T = t1 + t2
        End If
    Loop Until k = 0
End Sub

Dim stroka$
stroka = "   слово1    слово2   слово3    "
stroka = Trim(stroka) ' убираем лидирующие и концевые пробелы
'прибиваем двойные(тройные, четверные и т.д)  пробелы
Do While InStr(1, stroka, "  ") > 0
stroka = Replace(stroka, "  ", " ")
Loop
'разбираем фразу на слова
Dim a() As String
a() = Split(stroka, " ")
'определяем количество слов если меньше 3 то выводим сообщение об ошибке если больше то меняем 3 слово и 1 слово местами
If UBound(a()) < 2 Then
MsgBox "Должно быть 3 слова"
Else
MsgBox a(2) & " " & a(1) & " " & a(0)
End If

Dim stroka$
stroka = "   слово1    слово2   слово3    "
With CreateObject("vbscript.regexp")
  .Pattern = "(\S+)\s+(\S+)\s+(\S+)"
  If .test(stroka) Then
    MsgBox .Replace(stroka, "$3 $2 $1")
  Else
    MsgBox "В строке должно быть три слова"
  End If
End With