public class MainClass Shared Sub Main() Dim target As String = "M"
Select Case target
Case "A" To "L"
Console.WriteLine("Alpha To Lambda executed")
Case "L" To "Z"
Console.WriteLine("Lambda To Zeta executed")
Case Else
Console.WriteLine("Else executed") End Select End Sub