You could pass an array as a reference and return a boolean like in this example:
Code:
Function DoIt(ByRef A() As Integer) As Boolean
  ReDim A(2)
  A(0) = 1
  A(1) = 2
  DoIt = True
End Function

dim Arr() as integer
If DoIt(Arr) Then debug.print Arr(0), Arr(1)
@Bornish: Oh. Hi. Didn't see your post, when replying.