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

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

Задание: поменять местами 2 и 4 столбцы двух массивов. Сделал, но как вывести результат не пойму. help Вывод желательно в MsgBox'e

                    Листинг программы
                
 
                        
                          
                    
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

Решение задачи: «Вывод двумерного массива»

textual
                            Листинг программы 
                        
 
                            
                        
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