Pelo q entendi vc queria algo assim não é?
"public function RetornarArray() as Array"
Bom se for isso até onde eu conheço não dá pra ser feito...
Já me deparei diversas vezes com esta situação e o q faço é concatenar os elementos do array usando o join:
matriz(0) = "1"
matriz(1) = "2"
matriz(2) = "3"
MsgBox Join(matriz, ";")
A função no caso retornaria uma string = "1;2;3"
Exemplo:
public function RetornarArray() as String
dim Matriz(2) as string
matriz(0) = "1"
matriz(1) = "2"
matriz(2) = "3"
RetornaArray= Join(matriz, ";")
end function
Depois eu pego novamente este array deste jeito
Dim Matriz_Retorno as Variant
Matriz_Retorno = split(RetornaArray(),";")
msgbox Matriz_Retorno(0) 'retorna "1"
msgbox Matriz_Retorno(1) 'retorna "2"
msgbox Matriz_Retorno(2) 'retorna "3"
entendeu?? Se for o q eu entendi é isso ae...
qq coisa é só postar
t+
