Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("1 al 9")

        dim contador as integer

        while ( contador <= 9 )

        contador = contador + 1

            console.WriteLine(""& CONTADOR)

        END WHILE

    End Sub

End Module