Programinha Que Seleciona Primeiro Nome e Ultimo Sobrenome

Sub comequeficosabendo()
    Dim palavra As String
    Dim letra As String
    palavra = UCase(InputBox("Digite uma palavra"))
    Dim pos_espaco As Integer
    pos_espaco = InStr(1, palavra, " ")
    Dim resultado As String
    resultado = Mid(palavra, 1, pos_espaco)
    MsgBox resultado
    resultado = Mid(palavra, InStrRev(palavra, " ") + 1, Len(palavra) - InStrRev(palavra, " "))
    MsgBox resultado
   
End Sub