Con questa formula calcolo l'età di una persona, ma in modo approssimato

Dim AnnoNascita As String
Dim AnnoRilevazione As String
AnnoNascita = Format(CType(Me.txtDataNascita.Text, DateTime), "yyyy")
AnnoRilevazione = Format(CType(Me.txtDataRilevazione.Text, DateTime), "yyyy")
Me.txtEta.Text = AnnoRilevazione - AnnoNascita

Cosi facendo mi mette l'età solo che non è riferito anche al mese e al giorno

Come posso fare per rendere l'età ancora più precisa?????

Ciao e grazieeeee