Retrieving array items from a called procedure

[Klopper]

If I want to pass a array variable to another function, like so:
Sub OrinigalProcedure
...etc
Variable = CalledProcedure(PassedVariable())
...etc
End Sub

Where:
Function CalledFunction(PassedVariable() as Variant)
...etc
...etc
CalledFunction = Array(Item1, Item2)
End Function

What is the correct syntax to refer to each item in the array passed back to the original procedure?

TIA,
Klopper

 

[Aivars]

I'm not sure that I right understood what results do you want to take, but... Mybe so?

Function CalledFunction(PassedVariable as Variant)
...etc
...etc
CalledFunction = PassedVariable(Item1, Item2)
End Function

Aivars

 

[JohnYingling]

Returning an Array from a function???

Sub OrinigalProcedure
    Dim aryNew() as Variant
    aryNew = CalledFunction(PassedVariable())
End Sub
Function CalledFunction(PassedVariable() as Variant) as Variant()
    CalledFunction = Array(Item1, Item2)
End Function

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript