DEclarar aRReglo

[atlantis]

La declaración de arrays es simple:

Dim nombre_arreglo(num_elementos) as typo

Ejemplo:

Dim arr(10) as integer

Para varias dimensiones:
Ejemplo

Dim x(10,5) as long

Por otro lado, como sabrás al pasar valores a una función se puede hacer de dos formas (Referencia y por Valor), veamos como se hace...

En la sub o la function que deseas escribir puedes recibir el array en una variable de tipo variant.... cheka esto:

Option Explicit
Private Sub Form_Load()
Dim c(10) As Integer
c(4) = 4
ImprimeArray c
MsgBox c(4)
End Sub

Private Sub ImprimeArray(a As Variant)
a(4) = 40
MsgBox a(4)
End Sub

Cuando lo ejecutes te daras cuenta que el valor se pasó por referencia... y no lo deseas entonces debes modificar la siguiente línea: Private Sub ImprimeArray(a As Variant)
por la siguiente:
Private Sub ImprimeArray(ByVal As Variant)

Fácil no?...

Funcionó... ???

Saludos.