Visual Basic - calculadora de fecha

Buen día tengan todos . . .

Deseo hacer un programa que solamente calcule una edad basandose en la fecha de nacimiento y una fecha especifica, y de el resultado en años, meses y dias.

otra duda, como puedo hacer para escribir una fecha en un textbox sin poner los separadores de año, mes y dia, y que al pasar a otro textbox aparezca con los separadores.

de antemano muchas gracias

Te puedo ayudar con la fecha de nacimiento y pasar de un textbox a otro. Para calcular la fecha de nacimiento, utilizo el MaskEdtBox este lo puedes activar con el Nombre "Microsoft MasKed Edit Control 6.0" y pones el formato o la mascara "dd/mm/yyyy":
Private Sub MaskEdBox_Change()
If IsDate(MaskEdBox) Then
Calcula
End If
End Sub
Sub Calcula()
Dim Años
Años = Year(Now) - Year(MaskEdBox)
If Month(Now) = Month(MaskEdBox) Then 'Si son iguales
'Verificar los Dias
If Day(Now) >= Day(MaskEdBox) Then
MsgBox "Tiene Usted: " & CStr(Años) & " Años", vbInformation, "Miguel Angel"
Else
Años = Años - 1
MsgBox "Tiene Usted: " & CStr(Años) & " Años", vbInformation, "Miguel Angel"
End If
ElseIf Month(Now) > Month(MaskEdBox) Then
MsgBox "Tiene Usted: " & CStr(Años) & " Años", vbInformation, "Miguel Angel"
Else
Años = Años - 1
MsgBox "Tiene Usted: " & CStr(Años) & " Años", vbInformation, "Miguel Angel"
End If
End Sub
El siguiente, el Formato es "dd/mm/yyyy" si capturastes en el Text1=14092004 te va a mostrar el Text2=14/09/2004
Private Sub Command1_Click()
Text2 = Mid(Text1, 1, 2) & "/" & Mid(Text1, 3, 2) & "/" & Mid(Text1, 5, 4)
End Sub

que tal miguel gracias por contestar . . .
mira ya hice la calculadora solo me faltan el detalle de la entrada de datos, no busco como aplicar el maskedbox, esto es lo que tengo:

es una ventana con 2 textbox, 1 commandbutton y 1 label

el codigo es:

Option Explicit

Private Sub Command1_Click()

Command1.Caption = \"¡Calculando!\"
Dim nac As Variant, lim As Variant
Dim anios As Integer, meses As Integer
Dim ndias As Double

nac = DateValue(Text1)
lim = DateValue(Text2)
ndias = lim - nac
anios = Int(ndias / 365.25)
ndias = ndias - (365.25 * anios)
meses = Int(ndias / 30.4375)
Label1 = anios & \" años y \" & meses & \" meses\"
Command1.Caption = \"¡LISTO!\"
End Sub

Private Sub Form_Load()
Text1 = DateValue(Now)
Text2 = DateValue(Now + 1)
Command1.Caption = \"Calcular!\"

End Sub

Private Sub text1_Click()
Command1.Caption = \"Calcular!\"
End Sub

la idea es escribir en el textbox por ej. la fecha 710312 (yymmaa) y se cambie por 12/03/1971en la misma textbox, otra cosita como se le puede hacer para que al dar click en el textbox se selecione el contenido

Amigo: Deseas tambien que te muestre todos los meses transcurridos a partir de la fecha de nacimientos y los dias tambien???? o todos los meses transcurridos a partir de la fecha actual y los dias tambien????por que el ejemplo que te puse esta incompleto solamente calcula la edad, espero tu respuesta!!