return an array of values from a function procedure

[karthikone]

hi,

i want to know how to return an array of values from a function and use that array values in the calling procedure.

say for eg.


Sub XYZ()

---
---
---

Select Case C

Case "ABC"

Call Gap(arg, arg2, arg3, arg4, arg5)

End Select

End Sub



Function Gap(Par1, Par2, Par3, Par4, Par5)

---
--
--


End Function

I want to return 4 values from the called procedure to the calling procedure. In the calling procedure i want to assign the values which is computed from the called procedure to a variable.


How to do it.


Any help.

thanks[/code]

 

[sweater_vests_rock]

karthik.

here is a simple example:

Sub Example()

    Dim aryExample()
    
    aryExample = ArrayFunction("Element 1", "Element 2")
    
    For i = LBound(aryExample) To UBound(aryExample)
        MsgBox aryExample(i)
    Next i
    
End Sub

Private Function ArrayFunction(arg1, arg2)

    ArrayFunction = Array(arg1, arg2)
    
End Function

cheers. ben.