Imports System
publicclass 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
End Class