http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/object/shell.htm

Set Shell=Wscript.CreateObject("Shell.Application")
Set f=Shell.BrowseForFolder(0,"フォルダを選んでください")
MsgBox f.Items.Item.Path '選択したフォルダ名を表示

これを試してみると、2行目、文字1で、引数の数が一致していません。または不正なプロパティをしていしています。
'Shell.BrowseForFolder'  コード、800A01C2 ソース、VBScript 実行時エラー
となってしまいます。