Te adjunto una función que ingresando la fecha de nacimiento te devuelve los años

Public Function Edad(ByVal FechaNac As Date) As Long
Dim Hoy As Date, Dias As Long
Dim Anos As Long, BisiestosHoy As Long
Dim BisiestosNac As Long, TotBisiestos As Long
Hoy = Date
BisiestosHoy = Int((Year(Hoy) - 2000) / 4)
BisiestosNac = Int((2000 - Year(FechaNac)) / 4)
TotBisiestos = BisiestosNac + BisiestosHoy + 1 '+1 porque el 2000 es bisiesto
Dias = Hoy - FechaNac
Dias = Dias - TotBisiestos
Anos = Int(Dias / 365)
If Anos < 0 Then Anos = 0
Edad = Anos
End Function

Saludos, julioalbertogarcia@hotmail.com