Imports System

Public Module Module1

    Public Sub Main()

        Dim a As Integer = 1

        console.Writeline("Counting 1 To 10 Below")

        While a <= 10

            console.writeline(a)

            a = a + 1

        End While

    End Sub

End Module