Estava pesquisando formas mais simples de achar o "último dia do mês" e me deparei com sua sugestão, que achei ótima!
Apenas para comentar, não desmerecendo sua rotina, no MSDN há uma sugestão mais simples:
Dim UltimoDia as variant
UltimoDia = DateSerial(Ano, Mes, 1 - 1)
Abraço!