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