You cannot subtract a string from a DateTime.
Try:
Dim dob As Datetime = DateTime.Parse(dobtxbx.Text)
Dim delta As TimeSpan = DateTime.Today - dob
Dim age As Double = Math.Floor(delta.TotalDays / 365.25)
agetxbx.Text = age.ToString()
Hope this helps.
[Edit] Corrected the code to compute the number of years from the number of days.