VBA:可以创建一个行为像集合的类模块吗？

' 在类模块中定义一个集合对象
Private mCollection As Collection

' 初始化集合对象
Private Sub Class_Initialize()
    Set mCollection = New Collection
End Sub

' 添加对象到集合中
Public Sub AddItem(ByVal item As Variant)
    mCollection.Add item
End Sub

' 从集合中移除对象
Public Sub RemoveItem(ByVal index As Integer)
    mCollection.Remove index
End Sub

' 获取集合中的对象数量
Public Function Count() As Integer
    Count = mCollection.Count
End Function

' 获取集合中的对象
Public Function Item(ByVal index As Integer) As Variant
    Set Item = mCollection.Item(index)
End Function

' 创建一个集合对象
Dim myCollection As New CollectionClass

' 添加对象到集合中
myCollection.AddItem "Object 1"
myCollection.AddItem "Object 2"
myCollection.AddItem "Object 3"

' 获取集合中的对象数量
MsgBox myCollection.Count() ' 输出：3

' 获取集合中的对象
MsgBox myCollection.Item(2) ' 输出："Object 2"

' 从集合中移除对象
myCollection.RemoveItem 1

' 再次获取集合中的对象数量
MsgBox myCollection.Count() ' 输出：2