Imports System

Public Module Module1

    Public Sub Main()

        dim number as integer

        number = Console.ReadLine()

        While number>0

            If number > 99 and number < 201  then

                Console.WriteLine("It is in between 100 and 200")

            Else

                Console.WriteLine("It is not between 100 and 200")

            End If

            number = Console.ReadLine()

        End While

    End Sub

End Module