Sorting algorithms (sort array)

[Ellis Dee]

Here's the aforementioned StudentSort:

Public Sub StudentSort(plngArray() As Long)
    Dim lngSwap As Long
    Dim i As Long
    Dim iMin As Long
    Dim iMax As Long
    Dim blnSorted As Boolean
    
    iMin = LBound(plngArray)
    iMax = UBound(plngArray) - 1
    Do While Not blnSorted
        blnSorted = True
        For i = iMin To iMax
            If plngArray(i) > plngArray(i + 1) Then
                lngSwap = plngArray(i)
                plngArray(i) = plngArray(i + 1)
                plngArray(i + 1) = lngSwap
                blnSorted = False
            End If
        Next
    Loop
End Sub