Language Basics VisualBasic Script

Sub GetAnswer()
      Dim Ans As Integer
      Ans = MsgBox("Continue?", vbYesNo)
      Select Case Ans
          Case vbYes
  '       ...[code if Ans is Yes]...
          Case vbNo
  '       ...[code if Ans is No]...
      End Select
  End Sub