Hola Juan,
Pone este codigo en un formulario, la funcion InvertirPalabras hace el trabajo que necesitas... cualquier cosa avisame.
Código:
Private Sub Form_Load()
MsgBox InvertirPalabras("juanvaz 300")
End Sub
Private Function InvertirPalabras(Texto As String) As String
Dim i As Integer
Dim Palabras() As String
Palabras = Split(Texto, " ")
For i = UBound(Palabras) To 0 Step -1
InvertirPalabras = InvertirPalabras & " " & Palabras(i)
Next
End Function
Saludos.