MonthName
функция возвращает название месяца в строковом формате. Следовательно,
If lcase(CurrMonthName) = "january" Then
....
else if lcase(CurrMonthName) = "february" Then
Тем не менее, я предлагаю использовать функцию Month
, которая вернет вам номер за месяц.
Итак, код будет выглядеть как
тусклый monthNum = месяц (myDate)
if monthNum = 1 Then
....
else if monthNum = 2 Then