[VB6] - Problema con array e funzioni

[xegallo]

fuction Funzione1 (byref x()as tipo) as tipo()
   'elaborazioni varie

   funzione1 = x()
end function

per richiamarla

dim a() as tipo
dim b() as tipo

   a() = funzione1(b())