Vbscriptエラー

vbでメッセージＢＯＸを用いてプログラムを起動できるようにしたいのですがエラーが出てしまいます。「インデックスが有効範囲にありません。」 どこが間違っているのでしょうか？ ーーーーーーー Dim objWShell Dim a Dim b a = MsgBox ("　「」を利用。"&Chr(13)&Chr(13)&_ "　　　　「」？　　　　"&Chr(13)&Chr(13)&Chr(13)&_ "　－－－－－－－－－－－－－－－－－－－－－－－－－－－－　"&Chr(13)&_ "　 お問い合わせください。" , vbYesNo,"「r」") ' MsgBox vbYes&"="&a If a = vbYes Then Set objWShell = CreateObject("WScript.Shell") b = WScript.Arguments(0) If b = 0 Then objWShell.Run "C:\Windows\System32\notepad.exe" ,vbNormalFocus,False ' End If End If ーーーーー