追記です。
①コードを直すと、以下のパスに書き換わります。
②フォルダパスを開くボタンを押したとき、フォルダは開いているようなのですが、前面に出てこないため開いたことがわかりづらい状態になっております。
Shell "Explorer.exe """ & freePath & """, vbNormalFocus"
通報 ...