Function Convert_Date_Int2Str(Date_Int As String) As String
Select Case Date_Int
Case 1
Convert_Date_Int2Str = "January"
Case 2
Convert_Date_Int2Str = "February"
Case 3
Convert_Date_Int2Str = "March"
Case 4
Convert_Date_Int2Str = "April"
Case 5
Convert_Date_Int2Str = "May"
Case 6
Convert_Date_Int2Str = "June"
Case 7
Convert_Date_Int2Str = "July"
Case 8
Convert_Date_Int2Str = "August"
Case 9
Convert_Date_Int2Str = "September"
Case 10
Convert_Date_Int2Str = "October"
Case 11
Convert_Date_Int2Str = "November"
Case 12
Convert_Date_Int2Str = "December"
End Select
End Function