Generalised Array Function [RESOLVED]

[agmorgan]

Here's a poser.
How could you make a function to display all the elements in an array?
It is easy for a 1 dimensional array.
e.g.

Dim intTest(5) As Integer
Dim i As Integer
 
'Set the values for this example
For i = 1 To UBound(intTest)
    intTest(i) = i
Next
 
 
For i = 1 To UBound(intTest)
    MsgBox intTest(i)
Next

But how could you make a function that would return all the elements of a multi-dimensional array?
The function would have to work for any (random) number of dimensions in the array.

[crptcblade]

Does this work?

Private Sub Command1_Click()
Dim x(0 To 4, 0 To 4, 0 To 4, 0 To 4) As String
Dim a, b, c, d
 
    For a = 0 To 4
        For b = 0 To 4
            For c = 0 To 4
                For d = 0 To 4
                    x(a, b, c, d) = a & "-" & b & "-" & c & "-" & d
                Next
            Next
        Next
    Next
 
    PrintArray x
 
    MsgBox "Done!"
 
End Sub
 
Private Sub PrintArray(Source As Variant)
Dim v As Variant
 
    For Each v In Source
        Debug.Print v
    Next
 
End Sub

[agmorgan]

A stroke of genius!
I was half expecting you to be the one to solve it.
Cheers!