@Hack, why you have to create a UDF while you can use a simple thing like this to return the Month number:

Month(CDate("1 " & strMonth))

And your Private function cannot be used in a query.