Найти транспонированную матрицу - VB

Формулировка задачи:

Вроде написала так как препод объяснял,но что-то не работает.Помогите пожалуйста)))

Вот задача

: Даны натуральное n и действительная матрица порядка n. Найти транспонированную матрицу. Транспонирование матрицы производится путём замены строки на столбец.

Вот решение:

Private Sub Command1_Click()
Dim A(10, 10) As Integer
Dim n As Integer
Dim m As Integer
Dim i As Integer
Dim J As Integer
n = InputBox("Введите количество элементов n=")
m = InputBox("Введите количество элементов m=")
For i = 1 To n
For J = 1 To n
A(i, J) = InputBox("A(i,J)")
Next i
Next J
For i = 1 To n
For J = 1 To n
A(i, J) = A(J, i)
A(J, i) = MsgBox
 
Next i
Next J
End Sub

Решение задачи: «Найти транспонированную матрицу»

textual
                            Листинг программы 
                        
                            s = s & A_T(i, j) & vbTab