VBScript の定数、MsgBox 関数の戻り値

MsgBox "vbOK: "     & vbOK
MsgBox "vbCancel: " & vbCancel
MsgBox "vbAbort: "  & vbAbort
MsgBox "vbRetry: "  & vbRetry
MsgBox "vbIgnore: " & vbIgnore
MsgBox "vbYes: "    & vbYes
MsgBox "vbNo: "     & vbNo


ret = MsgBox("vbOKOnly", vbOKOnly)
MsgBox "ret: " & ret


Do
  ret = MsgBox("vbOKCancel", vbOKCancel)
  MsgBox "ret: " & ret
Loop Until ret <> vbOK


Do
  ret = MsgBox("vbAbortRetryIgnore", vbAbortRetryIgnore)
  MsgBox "ret: " & ret
Loop Until ret = vbAbort


Do
  ret = MsgBox("vbYesNoCancel", vbYesNoCancel)
  MsgBox "ret: " & ret
Loop Until ret = vbYes