Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim a As Integer = 1

        Do

            Console.WriteLine("a: {0}", a)

            a = a + 1

        Loop Until(a = 11)

    End Sub

End Module

​