Vba 在For Each循环中使用自定义类

我有一个带有数组字段的类，如下所示：

Private storage() as Integer
'some logic here

如何像Collection类一样在For-Each循环中使用该类？例如：

Dim coll as new Collection
Dim value as Variant
For Each value in coll
    'do something
Next value

我只知道集合类型字段的决定：

Public Property Get NewEnum() As IUnknown
    Attribute NewEnum.VB_UserMemId = -4
    Set NewEnum = storage.[_NewEnum]    
End Property

我可以为数组类型字段做类似的设置吗

---

更准确地说，我的意思是在Java中应用迭代器接口和For-Each循环。

可能会帮助您我可能会帮助您更多，但您的问题不够准确。您应该添加更多代码以及您试图检索数组值的内容。它是私有属性这一事实意味着您希望让get方法公开数组的值，但这在您的问题中解释得不够充分。