Visual Basic - Calcular la edad en años, meses y dias

Private Sub TextBox10_Change()

    Application.ScreenUpdating = False

    On Error Resume Next

    Dim cam As Integer

    cam = Len(TextBox10.Text)

    Select Case cam

    Case 2

    Me.TextBox10.Text = Me.TextBox10 & "/"

    Case 5

    Me.TextBox10.Text = Me.TextBox10 & "/"

    End Select

    Dim fecactual As Date

    Dim fecnac As Date

    Dim edadactual As String

    fecnac = CDate(TextBox10.Value)

    edadactual = DateDiff("yyyy", fecnac, Now)

    TextBox11.Text = edadactual

    fecnac = CDate(TextBox10.Value)

    If TextBox11.Text <> Empty Then

    TextBox11.Enabled = False

    Else

    TextBox11.Enabled = True

    End If

End Sub

TextBox10 : fecha de nacimiento

TextBox11: edad

Public Sub Edad()

    Dim fecActual As Date

    Dim fecNac As Date

    Dim edad_en_anios, edad_en_meses, edad_en_dias As Long

    fecActual = Now

    fecNac = CDate("08/04/1973")

    edad_en_anios = DateDiff("yyyy", fecNac, fecActual)

    edad_en_meses = DateDiff("m", fecNac, fecActual) - (edad_en_anios * 12)

    edad_en_dias = DateDiff("d", CDate(Day(fecNac) & "/" & (Month(fecActual) - IIf(Day(fecNac) >= Day(fecActual), 1, 0)) & "/" & Year(fecActual)), Now)

    MsgBox "Años " & edad_en_anios & vbCrLf & "Meses " & edad_en_meses & vbCrLf & "Dias " & edad_en_dias

End Sub