Surely the format isn't important, just whether it is a date or not

Dim ans
ans = InputBox("Please supply date")
If IsDate(ans) Then
Range("A1").Value = Format(ans, "dd/mm/yy")
Else
MsgBox "Invalid date"
End If


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"mcphc" wrote in message
...
How do I check if a users entry into an inputbox is of the format
dd/mm/yyyy.

It would be sufficient to just check that the first 2 characters are
numbers, the third is "/" the fifth and sixth are numbers, etc.