Imports System
Public Module Module1
Public Sub Main()
dim contador as integer
Do until(contador > 10)
Console.WriteLine(contador)
contador = contador + 1
loop
console.WriteLine("salio")
End Sub
End Module