Visual Basic - como validar la fecha en un campo MaskEdfinicial

Por favor necesito validar el campo fecha para esto de que el usuario no introduzca dias > de 31 y meses > 12 utilice para capturar la fecha una MaskEdfinicial dataformat lo deje como general y la Mask es ##/##/#### en la BD este definido como fecha/hora. estoy utilizando Visual Basic con Access. please ayudenme, ya estoy desesperada ...
muchas gracias

Inserta este código en el evento KeyPress del Mask
'Aqui validamos las fechas que el usuaroi digite

'Función para que solo acepte Números, la tecla Enter y BackSpace
If KeyAscii = 13 Then
'Validar Fecha
If IsDate(MaskFecha.Text) Then
MsgBox "Fecha Valida"
Else
MsgBox MaskFecha.Text & " NO es una fecha válida."
End If
Else
If InStr("0123456789", Chr(KeyAscii)) = 0 And KeyAscii <> 8 Then
KeyAscii = 0
End If
End If

'Espero que esto te ayude
salu2 y suerte