Enviar Matriz a una función

[Lebennin]

Muy buenas,

estoy intentando enviar una matriz de "n" posiciones a una función directamente, pero no soy capaz. Se que podria, en vez de crear un array, crear una cadena con un separador y posteriormente utilizar Split, pero ya es mas que nada el como se hará...

Es decir, como le envio el array entero a la función y como lo recupero en esta. He probado algo asi:

Dim Body(),I
I = 2
Redim Preserve Body(I)
Body(I-1) = "Prueba"
Body(I) = "Otra prueba :D"

Resultado = Mail(Body(),I)

Funtion Mail (Cuerpo(),Indice)
....
End Function

El error que da es :

Error de Microsoft VBScript en tiempo de ejecución error '800a0009'

El subíndice está fuera del intervalo: 'Body'

Pero claro, no quiero enviarle ninguna posición en concreto, sino todas. ¿Es posible?

Salu2