Вывод двумерного массива

Private Sub Command2_Click()
Dim A(1 To 4, 1 To 5), B(1 To 5, 1 To 4) As Integer
Dim n, i, j As Double
Dim temp As Double
A(1, 1) = 8: A(1, 2) = 7: A(1, 3) = 6: A(1, 4) = 5: A(1, 5) = 4
A(2, 1) = 3: A(2, 2) = 2: A(2, 3) = 6: A(2, 4) = 4: A(2, 5) = 1
A(3, 1) = 7: A(3, 2) = 4: A(3, 3) = 9: A(3, 4) = 5: A(3, 5) = 1
A(4, 1) = 12: A(4, 2) = 10: A(4, 3) = 11: A(4, 4) = 7: A(4, 5) = 9
 
B(1, 1) = 5: B(1, 2) = 6: B(1, 3) = 7: B(1, 4) = 8
B(2, 1) = 4: B(2, 2) = 3: B(2, 3) = 6: B(2, 4) = 1
B(3, 1) = 8: B(3, 2) = 7: B(3, 3) = 5: B(3, 4) = 2
B(4, 1) = 9: B(4, 2) = 4: B(4, 3) = 3: B(4, 4) = 2
B(5, 1) = 13: B(5, 2) = 12: B(5, 3) = 7: B(5, 4) = 9
 
 
For i = 1 To UBound(A, 1)
      For j = 1 To UBound(A, 2)
        temp = A(i, 4)
        A(i, 4) = A(i, 2)
        A(i, 2) = temp
      Next j
Next i
 
For i = 1 To UBound(B, 1)
      For j = 1 To UBound(B, 2)
        temp = B(i, 4)
        B(i, 4) = B(i, 2)
        B(i, 2) = temp
      Next j
Next i
 
 
End Sub

Private Sub Command1_Click()
Dim n%, m%
n = 4: m = 5
ReDim A(n, m) As Double, B(m, n) As Double
 
A(1, 1) = 8: A(1, 2) = 7: A(1, 3) = 6: A(1, 4) = 5: A(1, 5) = 4
A(2, 1) = 3: A(2, 2) = 2: A(2, 3) = 6: A(2, 4) = 4: A(2, 5) = 1
A(3, 1) = 7: A(3, 2) = 4: A(3, 3) = 9: A(3, 4) = 5: A(3, 5) = 1
A(4, 1) = 12: A(4, 2) = 10: A(4, 3) = 11: A(4, 4) = 7: A(4, 5) = 9
 
B(1, 1) = 5: B(1, 2) = 6: B(1, 3) = 7: B(1, 4) = 8
B(2, 1) = 4: B(2, 2) = 3: B(2, 3) = 6: B(2, 4) = 1
B(3, 1) = 8: B(3, 2) = 7: B(3, 3) = 5: B(3, 4) = 2
B(4, 1) = 9: B(4, 2) = 4: B(4, 3) = 3: B(4, 4) = 2
B(5, 1) = 13: B(5, 2) = 12: B(5, 3) = 7: B(5, 4) = 9
 
Call p24(A())
Call p24(B())
MsgBox r(A()) & vbNewLine & r(B())
End Sub
Sub p24(mass() As Double)
Dim i%, temp As Double
For i = 1 To UBound(mass, 1)
        temp = mass(i, 4)
        mass(i, 4) = mass(i, 2)
        mass(i, 2) = temp
Next i
End Sub
Function r(ByRef mass() As Double)
Dim i%, j%
r = ""
For i = 1 To UBound(mass, 1)
   For j = 1 To UBound(mass, 2)
       r = r & mass(i, j) & vbTab
   Next j
   r = r & vbNewLine
Next i
End Function