VB.NET Example 2 - Select Case Statement

 Module Example2

    Sub Main()
        Dim Num As Integer
        Console.Write("Enter the Number: ")
        Num = Int32.Parse(Console.ReadLine())
        Select Case Num
            Case 1 To 4
                Console.WriteLine("The number is between 1-4")
            Case 5 To 7
                Console.WriteLine("The number is between 5-7")
            Case 8 To 10
                Console.WriteLine("The number is between 8-10")
            Case Else
                Console.WriteLine("The number is above 10")
        End Select
        Console.ReadLine()
    End Sub

End Module