'終了
henji =  MsgBox("★★★終了しますか？★★★", vbOKCancel, "確認用")
If henji = vbCancel Then WScript.Quit

Set WinHost = CreateObject("WScript.Shell")
WinHost.Run("rundll32.exe Shell32.dll,SHExitWindowsEx 1")