4.3.4.Select Case statement with String range value
Option Strict On Imports System
Module Module1
Sub Main( )
Dim target As String = "M"
Select Case target
Case "A" To "L"
Console.WriteLine("A To L executed")
Case "L" To "Z"
Console.WriteLine("L To Z executed")
Case Else
Console.WriteLine("Else executed") End Select End Sub 'Main