I am developing a calculated date field for a "renewal date" for a homeowner's association dues. I need a calculated field that shows the following: if a homeowner paid his dues on 02/15/2001, I want the calculated field to show 02/01/2002. I need help ASAP. Thanks.

Function NextDue(D As Date) As Variant
' Arguments:
' D = Your DateField

NextDue = DateSerial(Year(D), Month(D) + 12, 1)
End Function