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