Yo utilizo esta forma muy manual de calcular la edad, me ha servido, pues calcula los años, mese y dias.
Private Function EDAD()
If MaskEdBox1.TEXT <> "__/__/____" Then
Hoyd = Format$(Date,...