Validar si una fecha dada supera el año

[Ace_ventura]

Buenos dias a toda la comunidad de foreros, mi pregunta es la siguiente, necesito validar en un formulario en visual basic 6, si una fecha que extraigo de una base de datos es mayor a un año.
La consulta para traerme la fecha de la base de datos es la siguiente:

Código HTML:

    sql = ""
    sql = sql & "select to_Char(fecha_solicita,'dd/mm/yyyy')" & vbCrLf
    sql = sql & "from estudio_proyecto where nro_proyecto=" & txtProyecto.Text & vbCrLf
    sql = sql & "" & vbCrLf

y luego muestro la fecha en un control textbox llamado txtFechaRegistro.Text

Aqui es donde necesito validar que esta fecha no supere el año, si se ha pasado de un año mostrar una advertencia.

Gracias de antemano cualquier sugerencia.

[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

[lokoman]

Hola!
Otra forma:

Código vb:

If DateValue(txtFecha.Text) - DateValue(Date) > 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"