Problema para calcular la edad a partir de fecha de nac.

[Shizuka]

Hola! tengo tres comboboxes para
año, mes, y dia , tengo un text1 (invisible) para que concatene y se arege a la BD de MYSQL y haga la fecha con esto:

Text1.Text = Combo1.Text & "-" & Combo2.Text & "-" & Combo3.Text

y tengo un Text2 para que en el momento de que se presione el combo3
se lleve a cabo esto

Dim fecnac As Date, Edad1 As Integer
fecnac = CDate(Text1)
Edad1 = CInt((Date - fecnac) / 365)
Text2 = Str(Edad1) & " años"

Pero me sale un año màs y no entiendo por que, serà por el Text1 donde esto concatenando? es que lo tengo de esta manera para que se agrege en ese formato que usa mysql año/mes/dia por que VB con el mask text usa dia/mes/año

o tienen alguna otra idea de que puedo hacer? por que antes que usaba text box me iba bien, gracias :)