Возможен ли ReDim для многомерных массивов? - VB

Формулировка задачи:

Если возможен, как правильно надо это кодить?
Хочу использовать такую конструкцию для создания 2-мерного массива. Ругается во 2-ом цикле на строкe ReDim Preserve mas(i, 1). Типа

Решение задачи: «Возможен ли ReDim для многомерных массивов?»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> i, j, k, l <font color="blue">As</font> <font color="blue">Integer</font>
   <font color="blue">Dim</font> m() <font color="blue">As</font> <font color="blue">Long</font>, tt <font color="blue">As</font> <font color="blue">Integer</font>
   
   <font color="blue">Const</font> n = <font color="darkblue"><b>16</b></font>
   
   tt = FreeFile
   <font color="blue">Open</font> App.Path & <font color="teal">"\a.txt"</font> <font color="blue">For</font> Output <font color="blue">As</font> #tt
   <font color="blue">ReDim</font> m(n - <font color="darkblue"><b>1</b></font>, n - <font color="darkblue"><b>1</b></font>, n - <font color="darkblue"><b>1</b></font>, n - <font color="darkblue"><b>1</b></font>)
   <font color="blue">For</font> i = <font color="darkblue"><b>0</b></font> <font color="blue">To</font> n - <font color="darkblue"><b>1</b></font>
      <font color="blue">For</font> j = <font color="darkblue"><b>0</b></font> <font color="blue">To</font> n - <font color="darkblue"><b>1</b></font>
         <font color="blue">For</font> k = <font color="darkblue"><b>0</b></font> <font color="blue">To</font> n - <font color="darkblue"><b>1</b></font>
            <font color="blue">For</font> l = <font color="darkblue"><b>0</b></font> <font color="blue">To</font> n - <font color="darkblue"><b>1</b></font>
               m(i, j, k, l) = i * n * n * n + j * n * n + k * n + l
               <font color="blue">Print</font> #tt, <font color="teal">"m("</font> & Hex(i) & <font color="teal">","</font> & Hex(j) & _ 
<font color="teal">","</font> & Hex(k) & <font color="teal">","</font> & Hex(l) & <font color="teal">")"</font> & vbTab & <font color="teal">"0x"</font> & <font color="blue">Mid</font>$(Hex(&H10000 + m(i, j, k, l)), <font color="darkblue"><b>2</b></font>)
            <font color="blue">Next</font> l
         <font color="blue">Next</font> k
      <font color="blue">Next</font> j
   <font color="blue">Next</font> i
   <font color="blue">Close</font> #tt
                        