Определить название текущего месяца

Function dhMonthName(intMonth As Integer) As String
   ' Возвращение имени месяца по его номеру (intMonth _
   ' является номером элемента в массиве с названиями месяцев)
   dhMonthName = Choose(intMonth, "Январь", "Февраль", "Март", _
    "Апрель", "Май", "Июнь", "Июль", "Август", "Сентябрь", _
    "Октябрь", "Ноябрь", "Декабрь")
End Function

msgbox array("янв","фев","мар","апр","май","июн","июл","авг","сен","окт","ноя","дек")(m-1)

msgbox monthname(month(dateadd("d",n,dateadd("m",m,"1.1.1990"))))

Sub MonName()
Dim n, m
n = -10
m = 17
MsgBox Format(DateAdd("d", n, DateAdd("m", m, "1.1.1990")), "MMMM")
End Sub

Sub DateParts()
Const M = 5     'сюда ставим количество прошедших месяцев
Const N = 10    'сюда ставим количество прошедших дней
Dim CurrentDate As Date
CurrentDate = DateAdd("m", M, #1/1/1990#) + N 'добавили M месяцев и N дней
 
MsgBox CurrentDate                      'показ получившейся даты
MsgBox DatePart("yyyy", CurrentDate)    'показ её года
MsgBox MonthName(Month(CurrentDate))    'показ названия её месяца (что мы и ищем)
MsgBox DatePart("d", CurrentDate)       'показ числа месяца
End Sub