Imports System
Public Module Module1
Public Sub Main()
dim n as integer = 0
do until n = 100
n = n + 2
console.WriteLine(n)
loop
End Sub
End Module