Coloquei um Break Point (F9) no código e verifiquei que a função que faz o cálculo estava recebendo a data como 00:00:00, ou seja, não estava recebendo a data. Descobri isso passando o mouse sobre o parâmetro da função nDataAniversario.
Então fui verificar onde estava a chamada da função.
Lá estava o problema.
Você estava enviando a variável DataAniv, mas não havia atribuído um valor a essa variável.
Faltava especificar que esse valor vinha da TextBox1.
Outro problema é que você estava usando para cálculo a variável DataAniv, despezando o parâmetro da função nDataAniversario.
Então foi necessário jogar o valor desse parâmetro para a variável:

DataAniv = nDataAniversario

Também declarei a variável como Date.

Segue o arquivo anexo.

klarc28, muitoooooooo obrigadooooo, além de me ajudar você me deu a explicação. Excelente.