The InputBox function displays a dialog box containing a simple text box
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