Module Module1

    Sub Main()

        Dim num As Integer

        Console.Write("Please enter first number: ")
        num = Console.ReadLine()


        If num >= 0 And num <= 4 Then
            Console.Write("The number is between 0 and 4!")
        Else
            If num >= 5 And num <= 9 Then
                Console.Write("The number is between 5 and 9!")
            Else
                If num >= 10 And num <= 13 Then
                    Console.Write("The number is between 10 and 13!")
                Else
                    If num >= 14 And num <= 16 Then
                        Console.Write("The number is between 14 and 16!")
                    Else
                        If num >= 17 And num <= 64 Then
                            Console.Write("The number is between 17 and 64!")
                        Else
                            If num >= 65 And num <= 120 Then
                                Console.Write("The number is between 65 and 120!")
                            Else
                                Console.Write("The number is above 120!")
                            End If
                        End If
                    End If
                End If
            End If
        End If


        Console.Read()
    End Sub

End Module