Best all around sort - QSort or QuickSort

Lets test it for 1 Million items randomly generated:

DefLng A-Z

' comment one of the following
'Const nItems = 1000000 'for timing 1 Million items
Const nItems = 50 ' fits array before and after on one screen


Dim sa$(0 To nItems) 'setup with string array sa$() to hold random generated strings
For x = 1 To nItems ' make a random list to sort
   b$ = ""
   r = (Rnd * 5) \ 1 + 2
   For i = 0 To r
       b$ = b$ + Mid$("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789.?", (Rnd * 64) \ 1 + 1, 1)
   Next
   sa$(x) = b$
   Print b$,
Next
Print
Print "Press any to sort"
Sleep
t## = Timer(.01)
QSort 0, nItems, sa$()
time## = Timer(.01) - t##
'Cls
For i = 0 To nItems
   Print sa$(i),
Next
Print
Print "time:"; time##


' This is the best all purpose sort routine around, don't worry how it works, it just does!
' To use this sub rountine store all the string values you want to sort into Arr$() array
' call Qsort with Start = LBound(Arr$) and Finish = UBound(Arr$)
Sub QSort (Start, Finish, Arr$())
   Dim i As Long, j As Long, x$
   i = Start
   j = Finish
   x$ = Arr$(Int((i + j) / 2))
   While i <= j
       While Arr$(i) < x$
           i = i + 1
       Wend
       While Arr$(j) > x$
           j = j - 1
       Wend
       If i <= j Then
           Swap Arr$(i), Arr$(j)
           i = i + 1
           j = j - 1
       End If
   Wend
   If j > Start Then QSort Start, j, Arr$()
   If i < Finish Then QSort i, Finish, Arr$()
End Sub



I am getting about 1.5 secs on my system for 1 Million items, your results may be different.