Visual Basic - dia gregoriano

Por favor si alguien tiene el truco, para determinar en q dia del año estamos, mucho les agradecere q me lo envien a mi correo.
De antemano muchas gracias pos su help.

Fijate con esto:

DateDiff("d",DateAdd("m",-Month(Date)+1,DateAdd("d",-Day(Date),Date)+1),Date)

La formula correcta es:
datediff("d",dateserial(year(date)-1,12,31),date)

la de Cecilia devuelve un día de menos (devuelve 0 para el 1 de enero)