По номеру месяца выдать все приходящиеся на этот месяц праздничные дни

Private Function Holidays(ByVal NumberOfMonth As Integer) As String
    Select Case NumberOfMonth
           Case 1:  Holidays = " 1, 2, 3, 4, 5 января – Новогодние каникулы, " + _
                               " 7 января – Рождество Христово"
           Case 2:  Holidays = " 23 февраля – День защитника Отечества"
           Case 3:  Holidays = " 8 марта – Международный женский день"
           Case 5:  Holidays = " 1 мая – Праздник Весны и Труда" + _
                               " 9 мая – День Победы"
           Case 6:  Holidays = " 12 июня – День России"
           Case 11: Holidays = " 4 ноября – День народного единства"
           Case 12: Holidays = " 31 декабря – выходной"
           Case 4, 7, 8, 9, 10
                    Holidays = " Праздников нет."
           Case Else
                    Holidays = " Номер месяца введён неправильно."
    End Select
End Function
 
Private Sub Command1_Click()
'Проверка
Dim n As Integer
    n = InputBox("Введите номер месяца", "Ввод данных", 1)
   If n >= 1 And n <= 12 Then
      MsgBox Holidays(n), vbInformation, "Месяц - " & MonthName(n)
   End If
End Sub