Type Obj
    First As Integer
    Second As String
End Type

    Dim Ex( 1 ) As Obj

    Ex( 0 ).First =  345 
    Ex( 0 ).Second = "строка1"
    Ex( 1 ).First =  456 
    Ex( 1 ).Second = "строка2"

Sub Proc1 (Ex As Obj)
    'что-то делаем с объектом
End Sub

Sub Proc2 (Ex() As Obj)
    Dim i As Integer
    For i = LBound(Ex()) To UBound(Ex())
        'пробегаем по каждому объекту из массива
        'и в зависимости от логики нужно вызвать Proc1
        'для i-го элемента
        Proc1 (Ex(i))
    Next i
End Sub

Proc1 (Ex(i))

Call Proc1 (Ex(i))