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