title: Case Statement true and False?
body: <p>I'm working on an AutoCAD VBA program that creates a drawing.
  But i have a slight problem. If "Case 1" is True Then "Case 2" must be false. Here is my code :</p>
  
  <pre><code>Sub Pumps()
  
  'Option for type of pump piping
   ans = InputBox("1 = STD Piping" &amp; vbCrLf &amp; _
                  "2 = Omit Pump", "Pump Piping")
  
  Select Case ans
  
  Case "1":
  
  : Set layerObj = ThisDrawing.Layers.Add("PUMP-PIPING STD -" &amp; Size)
              layerObj.LayerOn = True
  Case "2":
  
  : Set layerObj = ThisDrawing.Layers.Add("OMIT PUMP -" &amp; Size)
              layerObj.LayerOn = True
  
  Case Else: MsgBox "Wrong Input Dude.", vbCritical, MSG: Exit Sub
  
  End Select
  
  End Sub
  </code></pre>
  
  <p>Please Assist</p>