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

Bu döngüde Şart sona bırakılmıştır. Önce Tekrar Edilmesi İstenilen Kod Bloğu çalıştırılır, sonra Şarta bakılır, eğer Şart sağlanmaya devam ediyorsa, her defasında Tekrar Edilmesi İstenilen Kod Bloğu çalıştırılır. Ta ki Şart yanlış oluncaya/sağlanmayıncaya kadar bu işleme devam edilir. Şart yanlış olduğu anda döngüden çıkılarak Loop While'dan sonraki kod satırlarına gidilir ve projenin çalışmasına buradan devam edilir.
Bu döngüde ise dikkat edilmesi gereken husus, döngü ilk çalıştırıldığında Tekrar Edilmesi İstenilen Kod Bloğunun muhakkak bir kez çalıştırılmasıdır, yani döngüye ilk girildiğinde Şart'ın sağlanıp sağlanmadığına bakılmaksızın Tekrar Edilmesi İstenilen Kod Bloğu bir kez çalışır. Daha sonra Loop While'e gelinerek Şartın sağlanıp sağlanmadığına bakılır.

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