Module Module1
Sub Main()
Dim s As Char = "c"
Select Case s
Case "a"
Console.WriteLine("a")
Case "b", "c"
Console.WriteLine("b, c")
Case "f"
Console.WriteLine("f")
Case Else
Console.WriteLine("Case Else")
End Select
End Sub
End Module
' run:
'
' b, c