Dim lArray()  As Long
  Dim i         As Long
  lArray = ReturnArray
  For i = LBound(lArray) To UBound(lArray)
    Debug.Print lArray(i)
  Next i
 
 
Public Function ReturnArray() As Variant
  Dim la()  As Long
  Dim i     As Long
  ReDim la(100)
  For i = 0 To 100
    la(i) = i
  Next i
  ReturnArray = la
End Function