Imports System

Public Module Module1

    Dim i As Integer = 0

    Public Sub Main()

           While i < 100

            i += 1

        End While

        Console.WriteLine(i)

    End Sub

End Module