Imports System

Public Module Module1

    Public Sub Main()

        Dim i as integer

        while i>9

            console.WriteLine("The value of i is:" &i)

            i=i+1

        end while 

    End Sub

End Module