Dim userName

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

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

Sub DoingPoorly()
    MsgBox ("Try to do better next time, " & userName)
End Sub