ExcelVBAでファイル選択画面（複数選択可）を表示する

ExcelVBAには「GetOpenFilename」というメソッドがあり、それの使用例がヘルプにも記載されています。しかしその使用例は単一ファイルを選択する場合に限って有効であり「MultiSelect」引数をtrueにしている場合はエラーが発生します。
「MultiSelect」をtrueにした場合でもエラーが出ないサンプルを作成しました。