Optener edad!

[mcofy]

ola,, aki de nuevo,,
ahora tengo una fecha de nacimiento,, pero necesito que al momento de colocar la fecha me coloque en otro campo la edad..
tengo un MaskedTextBox y kiero que al colocar la fecha me coloque la edad,, el problema es que, tiene que realizar ese calculo sin necesidad de usar el enter,,, es decir al momento de ir intriduciendo los datos, que valla calculando la edad

tengo este codigo,, pero tengo que dar enter,, y yo necesito que sea al cambiar lo que tengo,, NO con enter

If e.KeyChar = Chr(13) Then
Try
Dim ingreso As Date
Dim hoy As Date
Dim dife As String
ingreso = Me.MaskedTextBox1.Text
hoy = Format(Date.Now, "yyyy-MM-dd")
dife = DateDiff(DateInterval.Year, ingreso, hoy)
TextBox8.Text = dife
TextBox8.Focus()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Verifica tu Formato de fecha")
TextBox8.Focus()
Me.MaskedTextBox1.Text = ""
'Me.MaskedTextBox1.Focus()
End Try
End If



agradesco de antemano su ayuda,, saludos