Se puede conseguir más precisión sin líos con:

dEdad = DateDiff("m", "12/07/1985", Date)/12

Lo cual da 24,58333. Y si te basta con el 24 sacas la parte entera. Ya se complicaría un poco más, no...