Imports System

Public Module Module1

    Public Sub Main()

        dim x = 1

        do

            console.WriteLine(x)

            x=x+1

        loop until x=11

    End Sub

End Module