Public Function GetMonthName(ByVal m As Long, _
    Optional ByVal abbr As Boolean = False) As String


    Static Months(12) As String
    If (Months(1) <> "January") Then
        Months(1) = "January"
        Months(2) = "February"
        Months(3) = "March"
        Months(4) = "April"
        Months(5) = "May"
        Months(6) = "June"
        Months(7) = "July"
        Months(8) = "August"
        Months(9) = "September"
        Months(10) = "October"
        Months(11) = "November"
        Months(12) = "December"
    End If
    
   Dim tmp As String

   If (m >= 1 And m <= 12) Then
        tmp = Months(m)
   Else
        tmp = Format(m, "0")
   End If

   If abbr Then
      GetMonthName = Left(tmp, 3)
   Else
      GetMonthName = tmp
   End If

End Function