¿validar campo cedula?

[principefreddy]

pana. mira esto:

Function CalculaEdad(ByVal DataIni As Date) As Long
CalculaEdad = DateDiff("yyyy", DataIni, Date)

If (Month(DataIni) > Month(Date)) Or (Month(DataIni) = Month(Date) _
And Day(DataIni) > Day(Date)) Then CalculaEdad = CalculaEdad - 1
End Function

Private Sub agregar_Click()

Dim iAños As Integer
If Not IsDate(fecha.Text) Then
MsgBox "La Fecha no es Correcta. Ingrese una Fecha", vbCritical, "Error en la Fecha"
fecha.SetFocus
Exit Sub
End If
iAños = CalculaEdad(fecha)
Text6.Text = iAños ' se muestra la edad en el texto
end sub

es para que me valide, cuando se introduce la fecha de nacimiento en un texto de la siguiente manera 10/12/1985 si la fecha es menor o no tiene nada y le dan al boton guardar muestra un mensaje, pero me falta validar que si la fecha es mayor a la fecha actual no me deje guardar, ejemplo si la fecha de naciemiento es 10/10/2009 no me permita guardar. espero tu ayuda.