Do Until Şart
      [ Tekrar Edilmesi İstenilen Kod Bloğu ]
Loop 

Bu döngüde önce Şart bakılır. Şart yanlış/sağlanmıyorsa Tekrar Edilmesi İstenilen Kod Bloğu çalıştırılır. Kod Bloğundan sonra Loop'a gelinir, Loop çalışmanın yönünü tekrar Do Until yönlendirir. Eğer Şart hala sağlanmıyorsa yani Şart yanlış ise her defasında Tekrar Edilmesi İstenilen Kod Bloğu çalıştırılır, Şart doğru oluncaya/sağlanıncaya kadar bu işleme devam edilir. Şart doğru olduğu anda döngüden çıkılarak Loop'dan sonraki kod satırlarına gidilir ve projenin çalıştırılmasına buradan devam edilir. Bu döngüye Do While-Loop'un tersi diyebiliriz.

Private Sub UserForm_Initialize()
Dim Sayi As Integer
     Sayi = 1
     Do Until Sayi > 5
         Range("A" & Sayi).Value = Sayi
         Sayi = Sayi + 1
     Loop 
End Sub