I googled for "Sub qSort" and keepitcool has posted this several times.

Dave Peterson wrote:
<<snipped
I used a QSort
procedure that I saved from a newsgroup post (sorry about not remembering the
author/authors.)

<<snipped