如何在VBA中为类模块声明静态variables？

我想跟踪Excel-VBA中的特定类的所有实例，如VB.Net中的静态成员。 所以这是我的class级模块：

ClassModule：clsClass

Private pName as String 'Static pCount Commented as it doesnt work Property Set Name(arg as String) pName=arg End Property Private Sub Class_Initialize() 'pCount = pCount + 1 Commented as it doesnt work End Sub Public Function GetCount() GetCount = pCount End Function 

和我的通用模块模块：Module1

 Sub ABC() Dim instance1 As New clsClass Dim instance2 As New clsClass Dim instance3 As New clsClass Dim instance4 As New clsClass 'Debug.Print instance4.GetCount() This Should Return 4, but doesnt End Sub 

我究竟做错了什么 ？ 我如何声明在所有实例之间共享的variables？