Dim objWS

'WScript.Shellオブジェクトの作成
Set objWS = CreateObject("WScript.Shell")

'カレントディレクトリを表示
msgbox "実行ディレクトリ = " & objWS.CurrentDirectory

'オブジェクト破棄
Set objWS = Nothing