Scusa, ma da quando in qua si sottraggono le variabili di tipo String?
codice:
Dim ts As TimeSpan = DateTime.Parse(Me.txtDataRivelazione.Text).Subtract(DateTime.Parse(Me.txtDataNascita.Text))
A questo punto estrai dall'oggetto ts i dati che ti interessano.