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
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.