RosettaCodeData/Task/Conditional-structures/Visual-Basic-.NET/conditional-structures-4.visual

Dim result As String, a As String = "pants", b As String = "glasses"

Select Case a
  Case b
    result = "match"
  Case a : result = "duh"
  Case Else
    result = "impossible"
End Select