Cita:
Iniciado por t0n1 
Muy bueno, gracias!.
Otra cosita, ¿se puede validar dentro de un textbox, o sea -que cuando el usuario cargue los datos aparezca un message o en un label al costado, validando al pasar al otro textbox y no, cuando cliqueé el botón para guardar los datos- que el formato de la fecha sea dd/mm/yyy?.
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...