Visual Basic - Ayuda x favor, a calcular años,meses y dias en VB

Hola amigos quisiera ver si me pueden ayudar estoy trabajando en visual basic V6 y necesito calcular edades con una exactitud de dias, he usado la funcion, donde fecha es una fecha anterior a la actual
DIA = DateDiff("D", fecha, Date)
MES = DateDiff("M", fecha, Date)
AÑO = DateDiff("YYYY", fecha, Date)
resulta que la que calcula los años es inexacta si le doy la fecha por ejemplo 1/12/2006 al ejecutar esa funcion me da "1" y tendria que darme "0", asi que es incorrecto por que aun no se cumple el año, me gustaria que me pudieran ayudar con una funcion o rutina de VB ver 6, para calcular de una fecha anterior a la fecha actual en años, meses y dias pero que sea exacto por que estoy haciendo una aplicacion para niños que necesito una exactitud de horas.
una rutina que hice es esta pero no es exacta:
DIA = DateDiff("D", Text1(4), Date)
mes = DateDiff("M", Text1(4), Date)
AÑOS = Int(mes / 12)
MESES = mes - (AÑOS * 12)
DIAS = Int(DIA - ((AÑOS * 365) + (MESES * 30.41666666)))
If DIAS <= 0 Then
MESES = MESES - 1
DIAS = 29 + DIAS
End If
Text1(5).Text = AÑOS
Text1(6).Text = MESES
Text1(7).Text = DIAS


Gracias de antemano a todo el foro por su ayuda

Dim fecha1 As Variant, fecha2 As Variant

fecha1 = DateValue(Text1)
fecha2 = DateValue(Text2)
Label1 = fecha2 - fecha1

suerte

parece que no entendiste la pregunta: calcular años, meses y días. Tú estás dando la respuesta SOLAMENTE para los DÍAS de diferencia entre fecha2 y fecha1, ¿y los meses y años, onde quedaron? yo no respondo, esperando que completes la respuesta tú.