Prueba de la siguiente manera:
Function NombreDeLaFuncion(Vector())
Todo el Codigo, y cuando necesites devolver un valor, es con la sig. instruccion.
NombreDeLaFuncion = Valor a Devolver
End Function
Para llamarla debes hacerlo asi:
NombreDeLaFuncion(Vector())
Si tienes mas problemas, mandame un mail.
