Dim userName As String

Sub YourName()
    userName = InputBox(prompt:="Type your name", _
        Title:="Input Name")
End Sub

Sub DoingWell()
    MsgBox ("You are doing well, " & userName)
End Sub