BrowseForFolderを用いたフォルダ選択ダイアログで、モーダルダイアログにする方法を
ご存じの方、いらっしゃいませんか？
今は、ボタンをクリックしたら、

Dim ShellApp As Object
Dim oFolder As Object

Set ShellApp = CreateObject("Shell.Application")
Set oFolder = ShellApp.BrowseForFolder(0, "フォルダを選択してください。", &H10&)

として、oFolder.items.Item.Path からフォルダのパスを得ています。
ボタンをEnableにしたままだと、何個も表示されるので困っています。

フラグ等を用いる方法も考えましたが、ダイアログがモーダルなのが一番よいと思いまして
書き込みました。