VBScriptで二次元配列へのクイックソートを実装してみました。
VB6やVBSでも使えると思います。
(残念ながら、VBS/VB6/VBAには普通のソートはありません。MSFlexGridを使うとかしないとない)コードはGistに上げました。元ネタ結構前に書いたので、間違ってる箇所がひょっとしたらあるかも？