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