Sub execute()
    Dim b As BKSI
    Dim val
    
    Set b = New BKSI
    b.init
    val = b.test1
    val = b.test2
    
    Set lst = b.getKeys
    Set lst = b.getKeys     'Кэш
    
    For Each k In lst
        ' КАК ОБРАТИТЬСЯ К СВОЙСТВУ ОБЬЕКТА КЛАССА
        ' ПО ЗНАЧЕНИБЮ ПЕРЕМЕННОЙ
        'b(k) = "For Each"
    Next

End Sub

Private pTest1Private pTest2


Private listKeys As Collection


Public Function init() As Boolean
    pTest1 = "init1"
    pTest2 = "init2"
End Function



Public Property Get test1()
    test1 = pTest1
End Property
Public Property Let test1(val)
    pTest1 = val
End Property



Public Property Get test2()
    test2 = pTest2
End Property
Public Property Let test2(val)
    pTest2 = val
End Property



Public Function getKeys() As Collection
    If Not listKeys Is Nothing Then GoTo EndFn
    Set lst = New Collection
    lst.Add "test1"
    lst.Add "test2"
    
    Set listKeys = lst
EndFn:
    Set getKeys = listKeys
End Function