Imports System

Public Module Module1

    Public Sub Main()

        dim x as integer = 1 

        while x <11

            console.WriteLine("Value of a: {0}",x)

            x= x+1

        end while

    End Sub

End Module