If I remember correctly with VB6 you would send an array to a function using:

The declaration and function contents
Function Leave(Channel() as String) as Double
   ...some code the function processes
   End Function
The call:
   Dim retval as Double ' return value
   Dim Channel(20) as String ' array of 20 strings
 retval = Leave(Channel)
Not sure which VB you are using, but give it a try.