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

Bu döngü Do Until-Loop döngüsünün benzeridir, ancak burada Şart sona bırakılmıştır. Önce Tekrar Edilmesi İstenilen Kod Bloğu çalıştırılır, sonra Şarta bakılır. Şart yanlış/sağlanmıyor ise Tekrar Edilmesi İstenilen Kod Bloğu çalıştırılmaya devam edilir. Ne zaman ki Şart doğru olur/sağlanır ise döngüden çıkılır ve Loop'dan sonraki kod satırlarına gidilerek projenin çalıştırılmasına buradan devam edilir. 

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