Validacion de fecha

[agus0]

ah! ahora entendí Suponiendo que el formato de Fecha que vos querés es

Día/Mes/año Completo (por Ejemplo hoy es "9-12-2010"

Código:

Private Sub CmdComprobar_Click()
Dim aFecha() As String
    aFecha = Split(TxtFecha.Text, "-")
    If UBound(aFecha) <> 2 Then
        MsgBox "Mal el Formato de la Fecha"
    ElseIf aFecha(0) > 31 Then
        MsgBox "Dia de la Fecha Mal"
    ElseIf aFecha(1) > 12 Then
        MsgBox "Mes de la Fecha Mal"
    ElseIf aFecha(2) < Format(Date, "yyyy") Then
        MsgBox "Año Ingresado es Menor al Año Actual"
    Else
        MsgBox "Fecha Correcta"
    End If
End Sub

Espero Que te sirva y que lo ayas entendido, cualquier cosa pregunta :) Suerte!!