Grazie mille, ma penso di aver risolto così

Dim calcola As Variant
Dim anni As Date

anni = Date
calcola = Year(anni) - Year(DataNascita)
Età = calcola
anche perchè non mi serve una data precisa, ma solo decidere un età generica.
Comunque grazie