Programinha Que Gera Uma Pilha Com Nome Digitado

Sub ExemploUltimoNome()
    Dim palavra As String
    palavra = UCase(InputBox("Digite uma palavra"))
    Dim i As Integer
    Dim mensagem As String
    For i = 1 To Len(palavra)
        mensagem = mensagem & Mid(palavra, 1, i) & Chr(13)
    Next
    MsgBox mensagem
End Sub