Cita:
Iniciado por agus0 
Si... En vez de ponerlo en el evento "Click" de un Botón lo pones en el evento por ejemplo "LostFocus" Del TextBox, yo lo pondría en el evento Change asi te lo marca cada vez que cambias así...
Código:
Private Sub TxtFecha_Change()
Dim aFecha() As String
aFecha = Split(TxtFecha.Text, "-")
If UBound(aFecha) <> 2 Then
LblEstadoFecha.Caption = "Mal el Formato de la Fecha"
ElseIf aFecha(0) > 31 Then
LblEstadoFecha.Caption = "Dia de la Fecha Mal"
ElseIf aFecha(1) > 12 Then
LblEstadoFecha.Caption = "Mes de la Fecha Mal"
ElseIf aFecha(2) < Format(Date, "yyyy") Then
LblEstadoFecha.Caption = "Año Ingresado es Menor al Año Actual"
Else
LblEstadoFecha.Caption = "Fecha Correcta"
End If
End Sub
Y así A medida que vas escribiendo el Texto se va comprobando si esta bien...
No, pero yo no hablaba de la validación que no supere la fecha, sino sobre el formato, para que solo acepte el formato 'dd/mm/yyyy' y no deje al usuario poner fechas invertidas. Por ejemplo, que el usuario no ponga "08/25/2010" y el textbox se cancele automaticamente. ¿Cómo sería el código?.
Saludos!!!