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
End Module
L To Z executed