Imports System

Public Module Module1

    Public Sub Main()

        Dim n as integer

        n = 100

        Do

            Console.WriteLine(n)

            n = n + 1

        Loop until n = 1001

    End Sub

End Module