calculador de la edad de una persona

Este proyecto se realizo con la siguiente programación:

Private Sub CmdAceptar_Click()

Dim FecNac As Date, Edad As Integer

FecNac = CDate(TxtFecNac)

Edad = CInt((Date - FecNac) / 365)

TxtEdad = Str(Edad) & "años"

End Sub

Private Sub Command2_Click()

TxtFecNac.Text = ""

TxtEdad.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub