Option Explicit
'Define variables:
Dim nLikeMicrosoft
Dim sOutput
nLikeMicrosoft = CInt(InputBox("Do ye like VBscript for Windows?", vbQuestion+vbYesNo, "Microsoft VBs*** survey"))
Select Case nLikeMicrosoft
Case vbYes
'If user clicks "Yes":
sOutput = "Oh dear Gods! Ye do know that it's the most insecure of all languages, don't ye? :-O"
Case vbNo
'If user clicks "No":
sOutput = "Aye...I agree! I've never been keen on it, but it's the only language I know! [Cries]"
Case Else
'This shouldn't normally be encountered...
sOutput = "[In true Microsoft fashion, this program has reached a point that it shouldn't have. I guess it figures though...]"
End Select
MsgBox sOutput, vbInformation, "Microsoft VBs*** survey")
Set nLikeMicrosoft = Nothing
Set sOutput = Nothing
WScript.Quit