Как «сохранить» информацию, найденную через цикл в массиве?

Question

вместо выхода из подпрограммы, когда операторы «Если» признаны истинными, я хочу продолжить поиск в массивах, чтобы найти больше случаев, когда операторы «Если» найдены как истинные.

Rack = Array(1,2,3,4,5,6,7,8,9,10,11,12)
Spaces = Array(15,15,15,25,15, 25, 15, 15, 12, 12, 24,24)

For Each x In Rack
lim = Spaces(x-1)

y=0
    Do Until y=lim

    Point="Rack_"&x&"["&y&"].ON"
    Point1="Rack_"&x&"["&y&"].WBS"
    Point2="Rack_"&x&"["&y&"].SEC"
    Point3="Rack_"&x&"["&y&"].LOC"

                If @Point1 = WBSout Then
                    If @Point2 = SecNum Then

                        RackNum = x
                    SpaceNum = y +1
                        Loc = @Point3

            Exit Sub

            End If 
            End If 

    y=y+1
    Loop

Next

будетЯ должен использовать другой массив для хранения этой информации?