Excel Inverter Frases em VBA

[Pedrockz]

Pessoal tenho que inverter a ordem de uma frase. Por Exemplo: >>>>>  Pedro Henrique     ===   Henrique Pedro

O objetivo é usar funções alfanuméricas....

 

O código abaixo ele inverte a ordem, mas também inverte os caracteres:  >>>  Pedro Henrique === euqirneH ordeP

 

Sub exercicio3()
    
    Dim frase As String
    frase = Planilha3.Range("A2").Value 'FRASE NA PLANILHA
    Dim frasecont As String
    Planilha3.Range("A3").Value = StrReverse(frase)
    
End Sub

 

[Midori]

Sub Macro()
    Dim F, V()  As String
    Dim I       As Integer
    
    V() = Split("Pedro Henrique", " ")
    
    I = UBound(V)
    
    While I > -1
        F = Trim(F & " " & V(I))
        I = I - 1
    Wend
    
    MsgBox F
End Sub