Option Explicit
Private myClass As Class1           '<*A*>
Private myCollec As New Collection
Private myTest As New Class1        '<*B*>
Private Sub Form_Load()
    myCollec.Add myClass            '<*C*>
    Set myTest = myCollec.Item(1)   '<*D*>
    MsgBox myTest.Test              '<*E*>
End Sub

Option Explicit
Private Const strTest = "TEST"
Public Property Get Test() As String
    Test = strTest
End Property