Dim d
Do
Do
	d = inputbox("Geef een datum in 2001")
Loop Until Isdate(d)
Loop Until year(d)=2001
Msgbox "De datum is " & d