Mega Code Archive
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