Imports System

Public Module Module1

    Public Sub Main()

            Dim number as Integer

        number = 100

        While number < 1001

            Console.Writeline(number)

            number += 1

        End while 

    End Sub

End Module