Calculo de la edad de una persona

La siguiente es la programacion: 

Private Sub Command1_Click()
Dim a As Date, b As Integer
a = CDate(Text1.Text)

b = CInt((Date - a) / 365)
Text2.Text = Str(b) & "años"
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub