button - vbsのボタンキャプションを変更するメッセージボックス

Question

Option Explicit
Const conForReading = 1
Dim objFSO, objReadFile, objFile, contents, result, shell
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("C:\read.txt") 

If objFile.Size  Then 
Set objReadFile = objFSO.OpenTextFile("C:\read.txt", 1, False)
contents = objReadFile.ReadAll
result = MsgBox ("text2" & contents & "text1",vbYesNo+vbExclamation,"TITLE")
Select Case result
Case vbYes
Set shell = wscript.CreateObject("Shell.Application")
shell.Open "D:\folder"
Case vbNo
End Select
objReadFile.close

Else 
End If  

Set objFSO = Nothing 
Set objReadFile = Nothing 
WScript.Quit() 

私はこのvbsファイルを持っています.vbYesNoのキャプションを変更したいです.yes Open Folderとno Exit. しかし、私はそれを行う方法がわからず、これを行う方法を見つけることができませんでした. 私はプログラミングが初めてなので、簡単なことを見逃しているのかもしれません。しかし、私はそれを学びたいです。