Я делаю так:
для поля, в которое предполагается вводить дату (использую маск эдит контрол):

Private Sub txmДатаРожд_Validate(Сancel As Boolean)
' если юзер ввел вообще не дату
If Not IsDate(txmДатаРожд) Then
Сancel = True
Beep
Else
' ввел дату, делаем проверку ограничений на дату
' dtДатаРожд - переменная, которая в дальнейшем используется в другом месте
dtДатаРожд = txmДатаРожд
If твое условие не выполняется Then
Сancel = True
Beep
Else
Сancel = False
End if

End If
End Sub