Càlculo de fecha Dìa Mes Año

Con el sgte codigo puedo calcular los a#os de una persona:
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then TextBox2 = DateDiff("yyyy", CLng(CDate(TextBox1)), Date) & " a#os."
End Sub

... necesito el codigo para que en tres Textbox me salga el sigueinte resultado al ingresar la fecha de nacimiento:

Textbox1 la cantidad de los dias de nacido.
Textbox2 la cantidad de los meses de nacido
Textbox3 la cantidad de los a#os nacidos.

hola, !

prueba cambiando al siguiente codigo:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim Fecha_inicial As Long
If KeyCode = vbKeyReturn Then
Fecha_inicial = CLng(CDate(TextBox1))
TextBox1 = Evaluate("datedif(" & Fecha_inicial & "," & CLng(Date) & ",""md"")") & " dias"
TextBox2 = Evaluate("datedif(" & Fecha_inicial & "," & CLng(Date) & ",""ym"")") & " meses"
TextBox3 = Evaluate("datedif(" & Fecha_inicial & "," & CLng(Date) & ",""y"")") & " años"
End If
End Sub

saludos,
hector.

__ OP __
> Con el sgte codigo puedo calcular los a#os de una persona:
> Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
> If KeyCode = vbKeyReturn Then TextBox2 = DateDiff("yyyy", CLng(CDate(TextBox1)), Date) & " a#os."
> End Sub
>
> ... necesito el codigo para que en tres Textbox me salga el sigueinte resultado al ingresar la fecha de nacimiento:
>
> Textbox1 la cantidad de los dias de nacido.
> Textbox2 la cantidad de los meses de nacido
> Textbox3 la cantidad de los a#os nacidos.


Buenos dìas Hector, disculap por contestar tarde, gracias por el aporteme funcinò perfectamente.