Элементы массива упорядочены по возрастанию элементов в строках. Переупорядочить массив по убыванию его элементов в строках - VB

Sub Resort(A() as integer)
      m%=Ubound(A,1)
      n%=Ubound(A,2)
      for i%=1 to m%
          for j%=1 to n%\2
               tmp%=A(i%,j%)
               A(i%,j%)=A(i%,n%-tmp%+1)
               A(i%,n%-tmp%+1)=tmp%
          Next j%
      next i%
End sub