Как можно возвести матрицу А в степень n - VB

Dim a1()
Private Sub Command1_Click()
Dim n%, k%
Dim a()
n = Val(InputBox("N-?", , 5))
k = Val(InputBox("k-?", , 3))
If n > 1 And k > 0 Then
ReDim a(n, n), a1(n, n)
Cls
Print "A";
For i = 1 To n
 Print vbTab;
   For j = 1 To n
     a(i, j) = Int(Rnd * 4) + 1
     Print a(i, j); vbTab;
   Next j
   Print
Next i
Print: Print "A^"; k;
a1 = a
Call st(a(), n, k)
Else
MsgBox "!"
End If
End Sub
 
Sub st(mass(), razm%, m%)
Dim i%, j%, k%
If m = 1 Then
For i = 1 To razm
 Print vbTab;
   For j = 1 To razm
     Print mass(i, j); vbTab;
   Next j
   Print
Next i
Else
Dim tm
ReDim mass1(razm, razm)
  For i = 1 To razm
     For j = 1 To razm
       tm = 0
        For k = 1 To razm
            tm = tm + mass(i, k) * a1(k, j)
        Next k
       mass1(i, j) = tm
     Next j
Next i
mass = mass1
st mass(), razm, m - 1
End If
End Sub