Here's one I prepared earlier ... (as they say):

Dim check_date As Integer
Dim my_date As String

'some other code

Do Until check_date = vbYes
my_date = ""
Do Until IsDate(my_date)
my_date = InputBox("Please Input date for this download")
Loop
download_date = DateValue(my_date)
check_date = MsgBox("Download Date = " & download_date _
& " - Are you sure?", vbYesNo)
Loop

'rest of code

This gives two levels of validation, as it then used the date to date-
stamp files, so it was important to get the right one.

Hope this helps.

Pete

On Jun 19, 2:08*pm, Project Mgr <Project
wrote:
I want to record a macro which will show a input box into which I can enter
any date and then continue. I can't find the information in help how to do
this.