Сортировка двумерного массива

Dim mas(3, 6) As Integer
Private Sub Command1_Click()
Label1 = ""
Label2 = ""
'заполнение массива случайными числами
For i = 0 To 2
    For j = 0 To 5
        mas(i, j) = 20 * Rnd(1)
        Label1 = Label1 & " " & mas(i, j)
    Next
    Label1 = Label1 & "  "
Next
'сортировка внутри каждого столбца
For i = 0 To 2
    'Max = 0
    For j = 1 To 5
        k = j
        Do While k > 0
            If mas(i, k) < mas(i, k - 1) Then
                t = mas(i, k)
                mas(i, k) = mas(i, k - 1)
                mas(i, k - 1) = t
                k = k - 1
            Else
                Exit Do
            End If
        Loop
    Next
Next
'Вывод
For i = 0 To 2
    For j = 0 To 5
        Label2 = Label2 & " " & mas(i, j)
    Next
    Label2 = Label2 & "  "
Next
End Sub

Dim mas(10, 8) As String
Private Sub Command1_Click()
Label1 = ""
Label2 = ""
'перенос слов в label чтоб корректно отображалась инфа
Label1.WordWrap = True
Label1.WordWrap = True
'заполнение массива случайными именами
For i = 0 To 9
    For j = 0 To 7
        mas(i, j) = "name" & Int(20 * Rnd(1))
        Label1 = Label1 & " " & mas(i, j)
    Next
    Label1 = Label1 & vbCrLf
Next
'сортировка по столбцу 0
For i = 1 To 9
    k = i
    Do While k > 0
        If mas(k, 0) < mas(k - 1, 0) Then
            For j = 0 To 7
                t = mas(k, j)
                mas(k, j) = mas(k - 1, j)
                mas(k - 1, j) = t
            Next
            k = k - 1
        Else
            Exit Do
        End If
        
    Loop
Next
'сортировка по столбцу 1 при условии равенства значений в столбце 0
For i = 1 To 10
    k = i
    Do While k > 0
        If mas(k, 0) = mas(k - 1, 0) Then
        
            If mas(k, 1) < mas(k - 1, 1) Then
                For j = 0 To 7
                    t = mas(k, j)
                    mas(k, j) = mas(k - 1, j)
                    mas(k - 1, j) = t
                Next
                k = k - 1
            Else
                Exit Do
            End If
            
            k = k - 1
        Else
            Exit Do
        End If
    Loop
Next
'Вывод
For i = 0 To 9
    For j = 0 To 7
        Label2 = Label2 & " " & mas(i, j)
    Next
    Label2 = Label2 & vbCrLf
Next
End Sub

If mas(k, 0) < mas(k - 1, 0)or mas(k, 0) = mas(k - 1, 0)and mas(k, 1) < mas(k - 1, 1) Then

'сортировка по столбцу 1 при условии равенства значений в столбце 0
for i...
next

Private Sub Command1_Click()
Dim n, m, a()
n = 8: m = 8
ReDim a(n, m)
Text1.Text = "": Text2.Text = ""
For i = 1 To n
  For j = 1 To m
    a(i, j) = Chr(Int(Rnd * 4) + 224)
    Text1.Text = Text1.Text & a(i, j) & vbTab
  Next
    Text1.Text = Text1.Text & vbCrLf
Next
 
sort1 a(), LBound(a, 2) '1
 
For i = 1 To n
  For j = 1 To m
    Text2.Text = Text2.Text & a(i, j) & vbTab
  Next
    Text2.Text = Text2.Text & vbCrLf
Next
End Sub
 
Sub sort1(a(), p)
Dim tr As Boolean
Dim n%, m%, l1%, l2%, k%, u%
n = UBound(a, 1): m = UBound(a, 2)
l1 = LBound(a, 1): l2 = LBound(a, 2)
If p = m Then
   Exit Sub
Else
    For i = l1 To n - 1
       For j = i + 1 To m
        If p = 1 Then GoTo 1
         tr = True
         For u = l2 To p - 1
            If a(i, u) <> a(j, u) Then
              tr = False
              Exit For
            End If
         Next u
         If tr Then
1          If a(i, p) > a(j, p) Then
            For k = l2 To m
              t = a(i, k): a(i, k) = a(j, k): a(j, k) = t
            Next k
          End If
         End If
      Next
   Next
p = p + 1
sort1 a(), p
End If
 
End Sub

Option Compare Text
Dim mas(9, 7) As String
Private Sub Command1_Click()
Label1 = ""
Label2 = ""
'перенос слов в label чтоб корректно отображалась инфа
Label1.WordWrap = True
Label1.WordWrap = True
'заполнение массива случайными именами
For i = 0 To 9
    For j = 0 To 7
        mas(i, j) = Chr(Int(25 * Rnd(1)) + 65) & Chr(Int(25 * Rnd(1)) + 65) & Chr(Int(25 * Rnd(1)) + 65)
        Label1 = Label1 & " " & mas(i, j)
    Next
    Label1 = Label1 & vbCrLf
Next
 
'сортировка по 0 и 1 столбцу 
For i = 1 To 9
    k = i
    Do While k > 0
        If mas(k, 0) < mas(k - 1, 0) Or mas(k, 0) = mas(k - 1, 0) And mas(k, 1) < mas(k - 1, 1) Then
            For j = 0 To 7
                t = mas(k, j)
                mas(k, j) = mas(k - 1, j)
                mas(k - 1, j) = t
            Next
            k = k - 1
        Else
            Exit Do
        End If
        
    Loop
Next
'Вывод
For i = 0 To 9
    For j = 0 To 7
        Label2 = Label2 & " " & mas(i, j)
    Next
    Label2 = Label2 & vbCrLf
Next
End Sub