You can get the objects by reference and change them:
SomeClass.cls
Option Explicit Public Value As String
Form1.frm
Option Explicit Private Sub Form_Load() Dim Col As Collection Dim SC As SomeClass Set Col = New Collection Set SC = New SomeClass SC.Value = "hello" Col.Add SC Set SC = New SomeClass SC.Value = "world" Col.Add SC MsgBox Col(2).Value Col(2).Value = "cruel word" MsgBox Col(2).Value End Sub
Bob77 source share