Поменять местами столбец и строку матрицы, вычислить определитель исходника - VBA

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

Вот мой вариант. Но как сделать так, чтобы выводился не один измененный элемент, а вся матрица целиком?

Sub matrixx()
Dim mass(4, 4), k, n, m, m1, a As Integer
Dim i As Integer
Dim j As Integer
For i = 0 To 3
For j = 0 To 3
mass(i, j) = InputBox("Введите" + Str(i + 1) + "элемент массива:", "ввод элементов массива с клавиатуры" & "Введите" + Str(j + 1) + "элемент массива:", "ввод элементов массива с клавиатуры")
Selection.TypeText mass(i, j) & Chr$(9)
Next j
Selection.TypeParagraph
Next i
k = CInt(InputBox("Введите k от 0 до 3"))
For i = LBound(mass) To UBound(mass)
c = mass(i, k)
mass(i, k) = mass(k, i)
mass(k, i) = c
PushButton = MsgBox(c, vbOKOnly, "как-то так")
Selection.TypeText c & Chr$(9)
Next i
Selection.TypeParagraph
End Sub

Решение задачи: «Поменять местами столбец и строку матрицы, вычислить определитель исходника»

textual
                            Листинг программы 
                        

                            Dim mass(4, 4) As Integer
Dim k, n, m, m1, a As Integer
Dim i As Integer
Dim j As Integer
For i = 0 To 3
For j = 0 To 3
mass(i, j) = InputBox("Введите" + Str(i + 1) + "элемент массива:", "ввод элементов массива с клавиатуры" & "Введите" + Str(j + 1) + "элемент массива:", "ввод элементов массива с клавиатуры")
Cells(i + 3, j + 3) = mass(i, j)
Next j
Next i
k = CInt(InputBox("Введите k от 0 до 3"))
For i = 0 To 3
c = mass(i, k)
mass(i, k) = mass(k, i)
mass(k, i) = c
Next i
 
For i = 0 To 3
For j = 0 To 3
Cells(i + 10, j + 3) = mass(i, j)
Next j
Next i
                        