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

Question

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

Private storage() as Integer
'some logic here

我如何在For Each类中使用此类，如Collection类？例如：

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

我可以为数组类型字段制作类似的内容吗？

更准确，我的意思是将Iterator接口应用于Java中的For Each循环。