Proceso que da valores a un array

[luigi23]

Hola, creo un proceso para rellenar el valor de un vector, el proceso lo rellena pero al salir el vector se muestra vacío. Me imagino que la solución debe ser muy sencilla. Aquí teneis el código:

dim vcampos(3)

inicia_vector(vcampos)

sub inicia_vector(vcampos)
vcampos(0) = "Cero"
vcampos(1) = "Uno"
vcampos(2) = "Dos"
end sub

¿Cómo puedo hacer que se rellene el vector? ¿Con un function?

Gracias y un saludo!