Отсортировать двумерный массив

For i = 1 To n  
        For j = 1 To m - 1
               For k = 1 To m - 1
                               If a(i, k) >= 0 Then
                                    tmp = a(i, k)
                                    a(i, k) = a(i, k + 1)
                                    a(i, k + 1) = tmp
                               End If
                    Next k
           Next j 
    Next i

Private Sub Комманда1_Click()
Dim i, j, n, m
Dim a(), B(), k, tmp
 
n = 5
m = 6
ReDim a(1 To n, 1 To m)
ReDim B(1 To UBound(a) * UBound(a, 2))
 
Randomize
Cls
For i = 1 To 5
        For j = 1 To 6
                a(i, j) = Int(20 * Rnd - 10)
                Print a(i, j),
        Next j
        Print
Next i
 
k = 0
For i = 1 To 5
        For j = 1 To 6
            k = k + 1
            B(k) = a(i, j)
        Next j
Next i
 
 
For i = 1 To k - 1
       For j = i To k - 1
                       If B(j) >= 0 Then
                            tmp = B(j)
                            B(j) = B(j + 1)
                            B(j + 1) = tmp
                       End If
            Next j
   Next i
   
  Print
  Print
k = 0
For i = 1 To 5
        For j = 1 To 6
            k = k + 1
            a(i, j) = B(k)
              Print a(i, j),
        Next j
         Print
Next i
End Sub

Sub bb()
Const N& = 3, M& = 4  'число строк и столбцов массива
Dim a(N - 1, M - 1), i&
For i = 0 To N * M - 1
  a(i Mod N, i \ N) = i
Next
Stop    'рассмотрите массив а в окне Locals
End Sub