I'm looking for a way to make yes/no/cancel buttons have functions in VBScript

Question

Here\'s what I did:

x=msgbox("body",3,"title") Dim objShell Set objShell = Wscript.CreateObject("WScript.Shell") objShell.Run "anot