Visual Basic - contador

pudiesen ayudarme con el siguiente codigo
Private Sub DAT_FNACIM_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If dat_fnacim.Text = "__/__/____" Then
MsgBox "CAMPO REQUERIDO", vbCritical, "BENEFICIARIO"
Else
Me.dat_fingre.Enabled = True

Me.dat_fingre.SetFocus
End If
End If

"deseo que al introducir una fecha no valida no me deje continuar y me envie error" agradezco su ayuda

saludos felix

y por qué no lo haces en vez de un TEXTBOX con un DTPICKER ?
(recuerda que debes tener agregado el componente Microsofot Windows Commno Controls 6.0)

asi será mucho mejor ya que te olvidas de la validación por ejemplo del tipo que tu quieres, al final tu das el formato deseado para guardarlo en la BD ... suerte ;)