VBA Возведение матрицы в степень

[AMaxim]

Задание: написать программный код для возведения матрицы в n-ую степень.
Делал вот так:

PHP код:

 Sub Макрос1()
Dim x1, x2, x3, a&
'исходную матрицу из задаваемого диапазона в массив
Cells(1, 1) = "исходная матрица:"
x1 = [A2:C4].Value
x3 = x1
For a = 2 To InputBox("Введите степень:")
    x2 = x3
    x3 = WorksheetFunction.MMult(x2, x1)
Next
'результат из массива в диапазон
Cells(1, 6) = "возведённая в степень матрица:"
[F2:H4].Value = x3
End Sub 


Нужно сделать с использованием циклов, подскажите, что нужно поменять или добавить.