Ayuda tarea para calcular la edad

Adrian,
Me.Print Format(DateDiff("y", Fecha_Inicial, Fecha_Final), Formato) & " dias"
Me.Print Format(DateDiff("WW", Fecha_Inicial, Fecha_Final), Formato) & " semanas"
Me.Print Format(DateDiff("m", Fecha_Inicial, Fecha_Final), Formato) & " meses"
Me.Print Format(DateDiff("yyyy", Fecha_Inicial, Fecha_Final), Formato) & " años"
Ahí tienes 4 formas de trabajar las fechas, solo debes igualar los textbox a fecha_inicial y fecha_final suerte y espero esto solucione tu duda.

Gracias por la pronta respuesta.. esos datos me sirven, peronecesitaria lagomas preciso como lo siguiente..
Tengo la fecha actual en un textbox
Dígito la fecha de nacimiento en otro textbox
a esto le saco una diferencia creo,,
buscando encontré esto que es de access y me sirve exactamente para lo que necesito pero no se como haría para pasarlo a visual basic.
Esto me calcula la edad exacta no todos los datos en años meses y días
si no preciso o son años o son meses o son días ese es el código.
Function EDAD(FECHANACI As Variant) As Variant
Dim DIFERENCIA As Double
On Error GoTo EDAD_Err
DIFERENCIA = Date - FECHANACI
If DIFERENCIA >= 365 Then
EDAD = DIFERENCIA \ 365
End If
If DIFERENCIA < 365 Then
EDAD = DIFERENCIA \ 30
If EDAD >= 12 Then
EDAD = 1
End If
End If
If DIFERENCIA <= 30 Then
EDAD = DIFERENCIA
End If
EDAD = Int(EDAD)
EDAD_Exit:
Exit Function
EDAD_Err:
Resume EDAD_Exit
End Function
Ahora con esto lo que hace es que al dato anterior me calcule si son años días o meses los que tiene la persona
Function UNEDAD(FECHANACI As Variant) As Variant
Dim DIFERENCIA As Double
On Error GoTo UNEDAD_Err
DIFERENCIA = Date - FECHANACI
If DIFERENCIA >= 365 Then
UNEDAD = "A"
End If
If DIFERENCIA < 365 Then
UNEDAD = "M"
If (DIFERENCIA \ 30) >= 12 Then
UNEDAD = "A"
End If
End If
If DIFERENCIA <= 30 Then
UNEDAD = "D"
End If
UNEDAD_Exit:
Exit Function
UNEDAD_Err:
Resume UNEDAD_Exit
End Function
Te agradezco si puedes echar una ayudadita ya que no tengo conceptos avanzados en visual basic.