Excel VBAでzipファイルを解凍した後のフォルダパスを変数に格納orフォルダが選択されていたらそのフォルダのパスを変数に格納する方法

現在、Excel VBAでファイルの一式更改用のプログラムを構築しています。
Select caseで実現可能かと思いますが、zipファイルが選択された場合にはzipファイルを解凍するプログラムで解凍（zipファイルと同じパスに.zipという拡張子がないフォルダをで解凍するというデフォルトの動作）してその解凍したフォルダのパスを変数Aに格納
フォルダが選択された場合にはそのフォルダのパスを変数Aに格納
という動作をしたいと考えています。
どのようなコードを記載すれば良いでしょうか？
もしサンプルのコードがあるサイトがあればご教示ください。