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*>
    Set myTest = myClass            '<*F*>
    Set myTest = New Class1
End Sub