Döngü, koşul cümlesi sonucu False olduğu sürece çalıştırılır ve sonuç True olduğunda döngüden çıkılır

Kullanımı şu şekildedir;

DO UNTIL Sayaç değişkeni karşılaştırma operatörü Döngü bitim değeri

            Komutlar

            Sayaç değişkeni =Sayaç değişkeni + Artım Değeri

LOOP

Örnek olarak yine 0 ile 10 arasındaki sayıları ekranda listeleyen bir konsol uygulamasını Do Until Loop döngüsü ile yazalım.

Module Module1

    Sub Main()

        Dim i As Byte

        Do Until i > 10

            Console.WriteLine(i)

            i = i + 1

        Loop

        Console.ReadLine()

    End Sub

End Module