Validar si una fecha dada supera el año

[Ace_ventura]

Hola de nuevo yo por aqui para decir que lo solucione, no se si sea la manera mas elegante pero me sirve, lo pongo aqui por si alguien le pueda servir

Dim validarFecha As Date
Dim diferenciaDias As String


validarFecha = CDate(txtFechaRegistro)
diferenciaDias = DateDiff("d", validarFecha, Now)
If diferenciaDias > 365 Then
MsgBox "El proyecto tiene más de un año de estar registrado, debe solicitar un nuevo Estudio de Proyecto", , "Solicitud de Conexión"
limpiar
Exit Sub
End If