Imports System

Public Module Module1

    Public Sub Main()

        Dim n1 as integer = 1

        while (n1 <> 100)

            Console.WriteLine(n1)

            n1 = n1 + 1

        end while

    End Sub

End Module