Funcion de Carcar

Esta función calcularía los años que tiene una persona, ignorando días
adicionales:

Function Años(Fecha As Date) As Integer
  Dim NuevaFecha As Date
  
  Años = 0
  NuevaFecha = DateAdd("yyyy", 1, Fecha)
  Do While NuevaFecha <= Date
    Años = Años + 1
    NuevaFecha = DateAdd("yyyy", 1, NuevaFecha)
  Loop
End Function

La función anterior tal cual está la entras en un módulo, pestaña de
módulos, nuevo módulo, metes lo anterior, lo guardas y listo (el
nombre para el módulo es indiferente.

Lo que deberías colocar en la propiedad origen del control del cuadro
de texto sería:

=Años([Fecha])