Option Explicit
 
Private genlngIndex As Long 'lokale Kopie
 
Public Property Let Index(ByVal lngIndex As Long)
    genlngIndex = lngIndex
End Property
 
Public Property Get Index() As Long
    Index = genlngIndex
End Property

Dim locobjIndex As New Class1
 
locobjIndex.Index = i
Call genobjCollection.Add(locobjIndex, i)

For i = 0 To genobjCollection.Count - 1
   genobjCollection.Item(i).Index
Next i