Перестановка столбцов двумерного массива - VB

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

Помогите, пожалуйста! Не знаю, как переставить столбцы двумерного массива в порядке возрастания первых элементов столбцов ( массив n=m=5) Точнее не знаю, как привязать столбец к его первому элементу. Подскажите!!!

Решение задачи: «Перестановка столбцов двумерного массива»

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

                            Sub Task_1()
Dim arr(1 To 5, 1 To 5)
For i = 1 To 5
    For j = 1 To 5
        arr(i, j) = Int(Rnd * 50 + 10)
        sStr = sStr & arr(i, j) & "  "
    Next
    sStr = sStr & vbNewLine
Next
For g = 1 To 4
    For j = 2 To 5
        i = 1
        If arr(i, j - 1) > arr(i, j) Then
            For i = 1 To 5
                tmp = arr(i, j)
                arr(i, j) = arr(i, j - 1)
                arr(i, j - 1) = tmp
            Next
        End If
    Next
Next
sStr = sStr & String(17, "_") & vbNewLine & vbNewLine
For i = 1 To 5
    For j = 1 To 5
        sStr1 = sStr1 & arr(i, j) & "  "
    Next
    sStr1 = sStr1 & "  " & vbNewLine
Next
MsgBox sStr & sStr1
End Sub
                        