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