Visual Basic - funcion de mes

Necesito saber si hay una formula para saber el ultimo dia del mes, es decir que me indique el final de cada mes (enero tiene 31, febrero 28 o 29, noviembre 30 y así sucesivamente) gracias por la atención prestada

Dim Fecha As Date
Fecha = "02/02/2007"
MsgBox DateSerial(Year(Fecha), Month(Fecha) + 1, 0)

Ok, Muchas gracias.