Imports System

Public Module Module1

    Public Sub Main()

        Dim number As Integer

    Console.WriteLine("Enter an integer:")

    number = Console.ReadLine()

    Select Case number

        Case 1 To 5

                Console.WriteLine("Between 1 and 5, inclusive")

        Case 6, 7, 8

                Console.WriteLine("Between 6 and 8, inclusive")

        Case 9 To 10

                Console.WriteLine("Equal to 9 or 10")

        Case Else

                Console.WriteLine("Not between 1 and 10, inclusive")

    End Select

    End Sub

End Module