Sub InputBoxExample() Dim strName As String strName = InputBox("What is Your Name?", "This is the Title", "This is the Default") msgBox "You Entered " & strName End Sub