Calculate Exact Age in Userform

Good afternoon all,

I have a userform in which in one of the txtfields, I enter the Date of Birth. I format the entry to dd.mm.yyyy

The code I am trying to use bugs out on the 4th line while trying to calculate the age and I can't seem to figure this one out.

Any help would be awesome

Private Sub txtDOB1_AfterUpdate()
Set dValue = txtDOB
    txtDOB1.Value = Format(dValue, "DD.MM.YYYY")
    txtAge1.Value = Fix((DateDiff("d", txtDOB1.Value, Now) / 365.25))
End Sub

Tayler