VBAのファイル名取得にて、昇順で取得する方法がわかりません

実現したいこと

VBAで実行するマクロで昇順に取得したい

発生している問題・分からないこと

下記サイトを参考に変更前のフォルダ名を一括取得するマクロを作成したのですが、昇順で取得にはどのように内容を変更すれば良いのでしょうか？
お手数ですが、ご教示のほどよろしくお願いいたします。
https://www.higashisalary.com/entry/vba-folder-rename

該当のソースコード

特になし

試したこと・調べたこと

上記の詳細・結果

他サイトを検索してみたのですが、実現方法がわからず詰まっております、

補足

特になし