[Resolvido] Calculando idade

Ola amigos estou com uma duvida aqui. Se puderem me ajudar eu agradeço.

Tenho um MaskEdBox “##/##/####” que registra a data de nascimento. Ai preciso bolar um código que calcule a idade dele. A idéia é calcular a idade dele levando em conta se ele fez ou não aniversario neste ano. Encontrei este código mas ele trava. Coloquei o código dentro do MaskEdBox1_Change, mas ele trava quando recebe um valor incompleto.

Exe: “1_/__/____”

Dim DatNasc As Date, Idade As Integer

DatNasc = MaskEdBox1.Text
TextIdade.Text = Int(DateDiff("m", DatNasc, Date) / 12)