Module Module1
Sub Main()
Dim n As Integer = 3
Select Case n
Case 1
Console.WriteLine("n = 1")
Case 3
Console.WriteLine("n = 3")
Case 18
Console.WriteLine("n = 18")
Case Else
Console.WriteLine("Case Else")
End Select
End Sub
End Module
' run:
'
' n = 3