Function that return Array

What makes you think it's not working?

Option Explicit

Function test()
ReDim myarray(1 To 5)
Dim i
For i = 1 To 5
    myarray(i) = i
Next i
test = myarray
End Function

Sub mysub()
ReDim myarray(1 To 5)
myarray = test()
End Sub

Stepping through ...

?test(1)
 1 
?test(2)
 2 
?test(3)
 3 
?test(4)
 4 
?test(5)
 5 
?myarray(1)
 1 
?myarray(2)
 2 
?myarray(3)
 3 
?myarray(4)
 4 
?myarray(5)
 5

What's it doing, or not doing, that it shouldn't do, or should do?


Regards

or to keep it simple:

Sub snb_000()
  For Each cl In snb_001
    MsgBox cl
  Next
End Sub

Function snb_001()
  snb_001 = Split("aa|bb|cc|dd|ee", "|")
End Function