No te preocupes, no es obvia la pregunta, simplemente que no te entendía
. Mira este ejemplo:
Sub ValidarFecha(Fecha As String, valida As Boolean)
Dim cadena As Date On Error GoTo error
cadena = Format(Fecha, "dd/mm/yyyy")
If Not IsDate(cadena) Then
MsgBox "Compruebe que ha introducido bien la fecha.", vbInformation
Exit Sub
End If
If cadena > Date Then
valida = True
GoTo error
Else
valida = False
End If
Exit Sub
error:
MsgBox "La fecha no puede ser posterior a la fecha de hoy.",
vbInformation, "Fecha inválida"
valida = True
Exit Sub
End Sub
Puedes adaptarlo a tu caso. Espero que te sirva. Un saludo