My problem is like this :

Sub DateChk()
Dim startdt As Date
startdt = InputBox("enter the start date ", "Start Date")

End Sub


I want to check whether the user entered a date value in the input box and if
not, then I will show an error message. But in the above code, as soon as the
user enters a wrong value, it gives "Type Missmatch". In stead of this error
message, I want to show some custom erroe message.

Can anybody help me with this please??