Visual Basic - Calculo FECHA NACIMIENTO

alguien tiene una funcion para calcular a prtir de una fecha los años y meses

por ejemplo

fecha x = 25 años 6 meses

anos=anoactual-anonac
meses=mesactual-mesnac
if meses<0 then
meses=12+meses
anos=anos-1
endif
********************12+meses porque se supone meses como negativo
*********espero te sirva