Создание пользовательских классов - VBA

Формулировка задачи:

Задание Создать класс День: св-во- номер дня недели, метод- по номеру дня недели выдать "Рабочий день", "Суббота" или "Воскресенье" ------------------------------- Создал класс

Private No As Integer
Private Sub Class_Initialize()
intNo = 1
End Sub
Public Sub CreateClass1(ByVal De As Integer)
If (De >= 7) Then
MsgBox "Такого номера недели не существует"
Else
  No = De
End If
End Sub
 
Public Function Dee() As Integer
Dee = No
End Function

Public Function Ch() As Integer
Select Case No
Case 1 To 5
MsgBox ("Рабочий день")
Case 6
MsgBox ("Суббота")
Case 7
MsgBox ("Воскресенье")
End Select
 
End Function

Пример практичного использования созданного класса

Sub TestSub()
Dim objRect1 As Class1
Dim De As Integer
Dim No As Integer
Dim C As Integer
De = Val(InputBox("Введите номер="))
No = Val(InputBox("Введите номер="))
Set objRect1 = New Class1
No = objRect1.Dee
C = objRect1.Ch
MsgBox ("день=" + Str(C))
End Sub

Когда запускаю, ввожу номер , но в сообщении не выводиться какой день Помогите , в чем ошибка

Решение задачи: «Создание пользовательских классов»

textual
                            Листинг программы 
                        

                             
Dim NumDayOfWeek As Integer
 
Public Property Let NumberDayOfWeek(k As Integer)
    NumDayOfWeek = k
End Property
 
 
Public Function NameDayOfWeek() As String
    Select Case NumDayOfWeek
       Case 1 To 5
          NameDayOfWeek = "Рабочий день"
       Case 6
          NameDayOfWeek = "Суббота"
       Case 7
          NameDayOfWeek = "Воскресенье"
       Case Else
        NameDayOfWeek = "Такого номера не существует"
    End Select
End Function
                        