I hope this is legible :
strCurrentMonth = DateToStr(DateAdd("d",-1*Day(Now()),Now()))
^^^^^^^^^^ - get the Day number from Now()
^^^ - multiply it by -1, which just makes it the same number, but negative
^^^^^^^^^^^^ ^^^^^^^^ - Do a DateAdd and 'add' X days, we are subtracting because the number is negative