Hay dos formas:
Pasar un array creado en el momento:
Código vb:
Ver original'Definicion de la funcion
Function Funcion(ByVal Arreglo() As String)
'Codigo
End Function
Funcion(New String(){"Hola", "Adios"})
Pasar un número variable de argumentos:
Código vb:
Ver original'Definicion de la funcion
Function Funcion(ParamArray Arreglo() As String)
'Codigo
End Function
Funcion("Hola", "Adios")
Ya decides tú como quieres hacerlo.
Saludos.