Imports System

Public Module Module1

    Public Sub Main()

        dim i as integer = 2

        while i<7

            console.WriteLine("i value: {0}",i)

            i=i-1

        end while

    End Sub

End Module