qsortを使いたいのですが、VB6ではどうやるのでしょうか?