Have you changed this line at all?:
Function PrjByMonth(strField As String, pMonth As Date)
(just 2 arguments (strField and pMonth))