Continuation of Allincon's previous post on Bubble Sorts:
This is my favorite. It's like a bubble sort on amphetamines! It makes a BIG difference on lists of over a thousand items.
sub CombSort chosenCtr
do until Gap=1 and Sorted
if Gap<1 then Gap=1
do while j+Gap<=chosenCtr
if lower$(mid$(classChosen$(j),17,4)) >_
temp$ = classChosen$(j)
It includes a 'Sorted' flag which allow it to terminate as soon as it's done. The 'lower$()' function in the compare makes it case insensitive, which is nice sometimes.