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