Sub myTest()
Dim mass( 1  To  10 ,  1  To  10 ,  1  To  10 ) As Integer ' можно сделать любую размерность
Dim i As Integer, j As Integer, i1 As Integer, pos As Integer
pos =  0 
For i =  1  To  10 
    For j =  1  To  10 
        For i1 =  1  To  10 
            pos = pos +  1 
            mass(i, j, i1) = pos
        Next
    Next
Next
MsgBox XFunc(mass, "1,3,4") & " " & mass( 1 ,  3 ,  4 ) ' для сравнения результатов
End Sub

Function XFunc(ByRef XArray, ByRef StringAddr As String) As Integer
Dim addr() As String, n As Integer, val2 As Integer, val() As Integer, myItem
Dim i As Integer, pos() As Integer, flag As Byte, m As Integer
n =  1 : addr = Split(StringAddr, ",")
On Error GoTo ErrorHandler
    Do
        val2 = UBound(XArray, n)
        n = n +  1 
    Loop Until False
ErrorHandler:
n = n -  1  ' n - мерность массива XArray
ReDim val( 1  To n): ReDim pos( 1  To n)
For i =  1  To n
    val(i) = UBound(XArray, n)
    pos(i) =  1 
Next
If (UBound(addr) +  1 ) <> n Then ' проверка
    MsgBox "Размерности массива XArray и адресной строки StringAddr неодинаковы"
    XFunc = - 1 
Else
    For Each myItem In XArray
        'MsgBox myItem
        flag =  0 
        For i =  1  To n
            If pos(i) = CInt(addr(i -  1 )) Then flag = flag +  1 
        Next
        If flag = n Then
            XFunc = myItem
            Exit Function
        End If
        For m =  1  To n
            If m =  1  Then pos(m) = pos(m) +  1 
            If pos(m) > val(m) Then
                pos(m) =  1 
                If (m +  1 ) <= n Then pos(m +  1 ) = pos(m +  1 ) +  1 
            End If
        Next
    Next
End If
End Function

n =  1 
On Error GoTo ErrorHandler 
    Do
        val2 = UBound(XArray, n) ' если не произошла ошибка (отлов ошибки) , то
        n = n +  1  ' к n прибавляется +1
    Loop Until False
ErrorHandler:
n = n -  1  ' n - мерность массива XArray

ReDim val( 1  To n): ReDim pos( 1  To n)
For i =  1  To n
    val(i) = UBound(XArray, n)
    pos(i) =  1 
Next

For Each myItem In XArray
        flag =  0  ' флаг
        For i =  1  To n 
            If pos(i) = CInt(addr(i -  1 )) Then flag = flag +  1  
            ' сравнение значений счетчика с со значениями строки StringAddr
        Next
        If flag = n Then ' если все n совпали, то результат 
            XFunc = myItem
            Exit Function
        End If
        ' это эмитация прохождения цикла
        ' сначало проходит первую размерность (n=1), увеличивая на каждом шаге на +1
        ' при достижении максимального значения в n=1, в n=2 увеличиваю на +1 и так далее до n
        For m =  1  To n
            If m =  1  Then pos(m) = pos(m) +  1 
            If pos(m) > val(m) Then
                pos(m) =  1 
                If (m +  1 ) <= n Then pos(m +  1 ) = pos(m +  1 ) +  1 
            End If
        Next
    Next

...
CreateArrayFunc("CrArr", "7,5,9,3,6,45,21,8,1")
...
MsgBox CrArr( 1 ) ' должно показать 7 или 5