Module Module1
Sub Main()
Dim number As Integer = 3
Dim a As Integer = 5
Dim b As Integer = 3
Dim c As Integer = 8
Select Case number
Case a
Console.WriteLine(a)
Case b
Console.WriteLine(b)
Case c
Console.WriteLine(c)
End Select
End Sub
End Module
' run:
'
' 3