Замена строк массива - VB

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

Массив чисел 3х3. Первую и третью строчки поменять местами. Моя программа для ввода массива. Помогите с заменой первой и третей строки.

Sub L8_2() 
 Dim Int_Array(1 To 3, 1 To 3) As Integer 
 Dim str_msg As String 
 Dim i As Integer 
 Dim j As Integer 
 
 str_msg = "" 
 For i = 1 To 3 
 For j = 1 To 3 
 Int_Array(i,j) = InputBox("Введите A(" & i & "," & j & ")", _ 
 "Ввод элементов массива") 
 Next j 
 Next i 
 For i = 1 To 3 
 For j = 1 To 3 
 str_msg = str_msg & vbTab & Int_Array(i,j) 
 Next j 
 str_msg = str_msg & vbCr 'перевод строки
 Next i 
 
 MsgBox "Введено: " & vbCr & str_msg, , _ 
 "Вывод ранее введенного массива" 
 End Sub

Решение задачи: «Замена строк массива»

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

                            ...
 For i = 1 To 3
 Int1_Array(i, 1) = Int_Array(i, 3)
 Int_Array(i, 1) = Int_Array(i, 3)
 Int_Array(i, 3) = Int1_Array(i, 1)
 Next i
 ...
                        