Use "InputBox"



Simple Example:



Dim sString as String

sString = InputBox("Enter a Title")

Debug.Print sString



When you run the code, an Input Box will appear allowing the user  to enter
something.