4.3.2.Select Case statement with Integer and exact value
Option Strict On Imports System
Module Module1
Sub Main( ) Dim targetInteger As Integer = 15
Select Case targetInteger
Case 5
Console.WriteLine("5")
Case 10
Console.WriteLine("10")
Case 15
Console.WriteLine("15!")
Case Else
Console.WriteLine("Value not found") End Select End Sub 'Main