[RESOLVED] Making an array a for each capable object

[frozen]

Dim Arr(0 To 4) as String, Obj As Object, Stri
Arr(0) = "zero"
Arr(1) = "one"
Arr(2) = "two"
Arr(3) = "three"
'looking to make the below sub
ArrToObj Arr, Obj
For Each Stri In Obj
    Debug.Print Stri
Next