Private Sub HelloYou() Dim yourName As String yourName = InputBox("What is your name?") MsgBox "Hello, " & yourName End Sub