Сделать через Excel или просто с кодом

Dim str As String
    str = Text1.Text
    str = StrReverse(str)
    Text2.Text = str

Private Sub Command1_Click()
    Dim str As String
    Dim strArr() As String
    Dim i As Integer
    
    str = "слово1 слово2 слово3"
    
    strArr = Split(str, " ")
    
    For i = 0 To UBound(strArr)
        strArr(i) = StrReverse(strArr(i))
    Next
    
    str = Join(strArr, " ")
    MsgBox str
End Sub

Option Explicit
 
Private Sub Command1_Click()
    Dim str As String
    Dim strs As String
    Dim i As Long
    Dim pos As Long
    
    str = "слово1 слово2 слово3 слово4"
    
    pos = 1
          
    Do
        i = InStr(pos, str, " ") ' Искать нужную нам строку
        
        If i > 0 Then
            Debug.Print Chr(34) & Mid$(str, pos, i - pos) & Chr(34)
            strs = strs & " " & StrReverse(Mid$(str, pos, i - pos))
            
            pos = i + 1
        End If
    Loop While i > 0 ' Выполнять цикл до тех пор, пока будет найдена искомая подстрока
    
    If pos > 1 Then strs = strs & " " & StrReverse(Right$(str, Len(str) - (pos - 1)))
    
    MsgBox Chr(34) & strs & Chr(34), vbInformation
End Sub