Создание класса и ошибка 'object variable or with block variable not set' - VBA

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

Всем привет! Почему когда описываешь класс вот так:

Dim a, b, c As Integer
 
Private Sub Class_Initialize()
a = 1
b = 1
c = 1
End Sub

А инициализация в программе выглядит вот так:

Dim Test_Class As Object
 
Sub Alph()
 
Test_Class = New Test
 
End Sub

Возникает ошибка - 'object variable or with block variable not set'? Обязательно ли создвать процедуры доступа? В чем ошибка, что тут не правильно? ЗАранее спасибо!

Решение задачи: «Создание класса и ошибка 'object variable or with block variable not set'»

textual
                            Листинг программы 
                        
                            Set Test_Class = New Test