Hi Sunil

I am not sure which link you use to post your queries. I would suggest to
use microsoft discussion forum itself..

http://www.microsoft.com/office/comm...&lang=en&cr=US

If this post helps click Yes
---------------
Jacob Skaria


"sunilpatel" wrote:

Dim DOB as date

On Error Resume Next
DOBAGAIN:
DOB = Application.InputBox("e.g DD-MM-YY", "Please enter DATE OF BIRTH", ,
200, 170, Type:=2)
If Err = 13 Then GoTo DOBAGAIN:
On Error GoTo 0


i would like only a six digit date to be entered and for the date to be
valid. How can i achieve this?

Thanks