Sub Words()

S0 = ""
S0 = Trim(InputBox("Введите предложение"))

If S0 = "" Then
    MsgBox "Предложение не введено"
Else
    N = Len(S0)
    Do
        S0 = Replace(S0, "  ", " ")
        N1 = Len(S0)
        If N1 = N Then Exit Do
        N = N1
    Loop

    Mass = Split(S0, " ")
    i1 = LBound(Mass)
    i2 = UBound(Mass)

    If i1 = i2 Then
        S = S0
    Else
        N = CInt((i2 - i1 + 1) / 2) - 1
        For i = 0 To N
            S = Mass(i1 + i)
            Mass(i1 + i) = Mass(i2 - i)
            Mass(i2 - i) = S
        Next
    
        S = Mass(i1)
        For i = i1 + 1 To i2
            S = S + " " + Mass(i)
        Next
    End If
    MsgBox S0 + vbCrLf + vbCrLf + S
End If

End Sub

Sub Макрос1()
    Dim text As String, result As String, count As Integer, temp As String
    Dim arr
    text = Лист1.Range("B1")
    arr = Split(text, " ")
    
    count = UBound(arr)
    For i = 0 To count / 2
        temp = arr(i)
        arr(i) = arr(count - i)
        arr(count - i) = temp
    Next
    result = Join(arr, " ")
    Лист1.Range("B3") = result
End Sub