Foro de elhacker.net

Bueno, tengo una funcion y quiero que el user le pase muchos nombres a la funcion, lo unico que no se es como hacerlo, me dijeron que usara un array en uno de los parametros osea asi:

Public function hola(ByVal ArrayX() As string)

pero no se como hacerlo, ni como llamarlo al procedimiento, alguien sabe como? gracias! ;)..

Option Explicit
Private Sub Form_Load()
    MyRutina (Array("valo1", "valor2", 3))
End Sub
 
Private Sub MyRutina(ByVal vParamArray As Variant)
Dim i%
    For i = 0 To UBound(vParamArray)
        MsgBox vParamArray(i)
    Next
End Sub