Ошибка при создании простого класса с помощью конструктора - VB

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

Создаю конструктором простой класс, вот весь код класса:

                    Листинг программы
                
 
                        
                          
                    
Public Enum Kind
    Good
    Bad
End Enum
 
Private mvarprKind As Kind 'local copy
Public Property Let prKind(ByVal vData As Kind)
    mvarprKind = vData
End Property
 
Public Property Get prKind() As Kind
    Set prKind = mvarprKind
End Property
 
На форме одна кнопка с обработчиком:
Private Sub Command1_Click()
    Dim myObj As MyClass
    Set myObj = New MyClass
    myObj.prKind = Good
    MsgBox myObj.prKind
End Sub

Вылетает с ошибкой 'Необходим объект' на строке: Set prKind = mvarprKind Но работает если убрать слово 'Set'. Что я неправильно делаю?

Решение задачи: «Ошибка при создании простого класса с помощью конструктора»

textual
                            Листинг программы 
                        
Public Property Set prKind(ByVal vData As Kind)
set mvarprKind = vData
End Property