빈 문자열을 반환하는 VBA 클래스 속성

Question

VBA에서 처음으로 클래스를 만들려고합니다. 나는 몇 가지 솔루션을 보았다 그리고 나는 나의 클래스와 아무 잘못 표시되지 않습니다,하지만 테스트 코드를 실행하면, 정수가 제대로 반환하지만 문자열이 비어 반환 :

Property Let Name(strName As String) 
    pName = strName 
End Property 
Property Get Name() As String 
    Name = pName 
End Property 
Property Let Class(strClass As String) 
    pClass = strClass 
End Property 
Property Get Class() As String 
    Class = pClass 
End Property 
Property Let Aggro(intAggro As Integer) 
    pAggro = intAggro 
End Property 
Property Get Aggro() As Integer 
    Aggro = pAggro 
End Property 

시험 절차

클래스

Sub ClassTest() 
    Dim Dog1 As New Critter 

    Dog1.Name = "Labrador" 
    Dog1.Class = "Canine" 
    Dog1.Aggro = 0  

    Debug.Print Dog1.Name 'returns "" 
    Debug.Print Dog1.Class 'returns "" 
    Debug.Print Dog1.Aggro 'returns 0 
End Sub 

Answer 1

유일한 단점은 속성 값을 보유 할 개인 변수를 정의하지 않았다는 것입니다. 롤 OMG D