Поменять местами первый и последний, второй и предпоследний... и тд столбцы массива А - VB

Sub exchangeArray(ByRef Arr, ByVal n1 As Integer, ByVal n2 As Integer, ByVal RowCol As Boolean)
'процедура меняет местами строки или столбцы в двумерном массиве
 
'Arr - двумерный массив значений
'n1 и n2 - номера строк(столбцов) которые поменяем местами
'RowCol - если истина, то меняем строки, иначе столбцы
 
Dim tmpArr() 'временный массив
If RowCol Then
  ReDim tmpArr(UBound(Arr, 2))
  For i = 0 To UBound(Arr, 2)
    tmpArr(i) = Arr(n1, i)
  Next i
  
  For i = 0 To UBound(Arr, 2)
    Arr(n1, i) = Arr(n2, i)
    Arr(n2, i) = tmpArr(i)
  Next i
Else
  ReDim tmpArr(UBound(Arr, 1))
  For i = 0 To UBound(Arr, 1)
    tmpArr(i) = Arr(i, n1)
  Next i
  
  For i = 0 To UBound(Arr, 1)
    Arr(i, n1) = Arr(i, n2)
    Arr(i, n2) = tmpArr(i)
  Next i
 
End If
End Sub