daí tu pode testar
if dia < day(now) AND mes <=month(now) then
'já fez aniversario
else
'não fez ainda
end if
Eu estou enferrujado em VB, não lembro se é com now que tu ve a data atual, mas acho que sim, qualquer coisa, se estiver errado, alguém arruma aí, por favor