How is the best way to set up and pass a parm array to a function 1

[SBendBuckeye]

I have seen bits and pieces of this technique in my reading but don't remember where and now I need to do it. Can someone point me or show a little bit of code?

Thanks!

 

[JohnYingling]

A ParamArray does not have to be an array. It can just be a varying list of parameters OR it can be a variant array.

Function IsEqualAll (p1, ParamArray aryP2() as Variant) as boolean
Dim I as Integer
For I = 0 To Ubound(aryP2)
if P1 <> aryP2(I) then exit sub
Next
IsEqualAll = True
End Function
Dim a, b, c
a = 2
blnEqual = IsEqualAll(a, b, c)

Dim ary
ary = Array(2, 2)
blnEqual= IsEqualAll(1, ary)

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[SBendBuckeye]

Thanks for getting me started. I appreciate it!