Перебор названий свойств - VB

Формулировка задачи:

Добрый день! Суть вопроса такова, есть массив для примера пусть будет "a". Каждый его элемент объявлен классом имеющим множество однотипных свойств: a(i).value1_q, a(i).value1_w, a(i).value1_e... a(i).value2_q, a(i).value2_w, a(i).value2_e... итд. Сумарно свойст получается очень много(порядка 100 штук). Как в цикле перебирать значения этих свойств(тобишь чтобы цифра после value была допустим равна i) Пытался

for i =1 to 50
а(i).value&str(i)_q=...
а(i).value&str(i)_w=...
а(i).value&str(i)_e=...
.....
next i

не работает =\ Подскажите как правильно осущtствить данный момент.

З.Ы. Cstr(i) а не str(i) правда все равно не помогает

Решение задачи: «Перебор названий свойств»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Комманда1_Click()
Dim Value(100)
Dim M(20)
Dim J, L, K
For J = 1 To 20
    For L = 1 To 100
        K = K + 1
        Value(L) = K
        Next L
        M(J) = Value
Next J
 
For J = 1 To 20
    For L = 1 To 100
    Debug.Print M(J)(L)
Next L, J
End Sub
                        