Pass more than one argument

[tiredofit]

If I want to pass ONE argument to a SubRoutine, I can do this:

Dim MyArray() as Variant

MyArray() = Array("Apples", "Oranges")

Dim i As Integer

For i = LBound(MyArray(), 1) To UBound(MyArray(), 1)

    Call SomeSub(Arg:=i)

Next i

What if SomeSub requires TWO arguments? How can I define an array, that allows more than ONE argument to be passed?

Thanks

 

[tiredofit]

I suppose I can use a dictionary, which would be key and item but what if SomeSub requires MORE than 2 arguments?

 

[RoryA]

I don't really understand the question. Best guess, use a 2D array or an array of arrays, and iterate each row.

 

[Norie]

Why would you need an array to pass more than one argument?

 

[tiredofit]

Thanks, the 2D array method is probably the easiest, like this:

    Dim MyArray(1 To 2, 1 To 2) As Variant
    
    MyArray(1, 1) = "Apple"
    MyArray(1, 2) = "Orange"
    MyArray(2, 1) = "Large"
    MyArray(2, 2) = "Small"
    
    Dim i As Integer
    
    For i = 1 To 2
    
        Call SomeSub(Arg1:=MyArray(1, i), Arg2:=MyArray(2, i))
    
    Next I

Using a dictionary, this is what I've got, which also works:

    Dim DIC As Scripting.Dictionary
    Set DIC = New Scripting.Dictionary
    
    DIC.Add Key:="Apple", Item:="Large"
    DIC.Add Key:="Orange", Item:="Small"
    
    Dim DICElement As Variant
    
    For Each DICElement In DIC
    
        Call SomeSub(Arg1:=DICElement, Arg2:=DIC.Item(DICElement))
    
    Next DICElement