This should be the answer, for more reference: WScript.Shell.Popup
Dim oShell, retCode
Set oShell = WScript.CreateObject("WScript.Shell")
retCode = oShell.Popup("Place your question here?", 0, "Title", 4 + 32)
Select Case retCode
case 6, -1
WScript.quit(0) 'Yes or time-out was chosen
case 7
WScript.quit(1) 'No was chosen
End Select`