Shared Sub Main(ByVal args As String()) Dim target As String = "A"
Select Case target
Case "A" To "M"
Console.WriteLine("A To M executed")
Case "N" To "Z"
Console.WriteLine("N To Z executed")
Case Else
Console.WriteLine("Else executed") End Select End Sub