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

Private Sub CommandButton1_Click()
Dim i As Double, j As Double
 Dim A(1 To 100, 1 To 100) As Integer
   Dim Str, T As String
   stepen = Val(InputBox("Введите Степень", "Введение входящих данных"))
For i = 1 To 3
        For j = 1 To 3
            A(i, j) = InputBox("Введите D(" & i & "," & j & ")")
           A(i, j) = A(i, j) ^ stepen
        Next j
    Next i
     For i = 1 To 3
      For j = 1 To 3
       Str = Str & A(i, j) & "  "
        Next j
         Str = Str & vbCr
          Next i
           MsgBox "Массив чисел :" & vbCr & Str, , "Исходный массив"
          End Sub

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