One Solution
Here is a function that will return the day of the year. You use it this way:
DayOfYear(#7/1/2005#) which returns 182
Function DayOfYear(DateToUse As Date)
'Computes the Consecutive Day for a year with Jan 1st = day 1,
' Feb 1st = day 32 etc
DayOfYear = DateDiff("d", "1/1/" & Format(DateToUse, "yyyy"), DateToUse) + 1
End Function