dato - anden dato

hej experter.
jeg er igang med min første database.
og jeg har lavet to textbox. det skal være sådan at man kan skrive sin fødselsdato ind i fx. textbox1 og i den anden textbox regner den selv ud hvor gammel man er.
først prøvet jeg selv at se om jeg kunne få den til det men det kunne jeg ikke. det jeg prøvet var

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        TextBox2.Text = Val(Today.Date) - Val(TextBox1.Text)
    End Sub

jeg er begynder så det er derfor jeg stiller et lidt dumt spørsmål