Транспонирование матрицы 4x4. VBA в Word.

[Sting95]

Задание: При нажатии на кнопку "Транспонировать матрицу", вводятся значения исходной матрицы, затем на экран выводится Исходная матрица, а под ней Транспонированая матрица.

Вот мой код, но программа не хочет корректно работать, исправьте пожалуйста, чтобы работало всё как в задании. Спасибо.

Private Sub CommandButton1_Click()
Dim a(), at(), m, n
m = Val(InputBox("Kol-vo strok"))
n = Val(InputBox("kol-vo stolbcov"))
ReDim a(1 To m, 1 To n)
ReDim at(1 To n, 1 To m)
 
Debug.Print "Исходная матрица"
For i = 1 To m
For j = 1 To n
a(i, j) = InputBox("a(" & i & "," & j & ")")
Debug.Print a(i, j);
Next j
Debug.Print
Next i
 
For i = 1 To m
For j = 1 To n
 at(j, i) = a(i, j)
Next j
Next i
 
Debug.Print "Транспонированая матрица"
For i = 1 To n
For j = 1 To m
Debug.Print at(i, j);
Next j
Debug.Print
Next i
End Sub

[ZX Spectrum-128]

Транспонирование:

For i := 2 to m
  For j := 1 to i-1 
    temp= a(i,j)
    a(i,j)=a(j,i)
    a(j,i)= temp;
 next
next