Imports System

Public Module Module1

    Public Sub Main()

        Dim index as Integer = 0

        Do

            Console.WriteLine(index.ToString & " ")

            index += 1

        Loop Until index > 10

    End Sub

End Module