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

Bir diğer döngü çeşidi olan Do While döngüsünde, önce Şart'a bakılır, eğer şart sağlanıyorsa ortadaki 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 While yönlendirir. Tekrar Şart'a bakılır, Şart sağlanmaya devam ediliyorsa, tekrar Kod Bloğu çalıştırılır ve bu işlem Şart yanlış oluncaya/sağlanmayıncaya kadar devam eder. En son Do While'dan sonra Şart'a bakılıp Şart sağlanmadığı görülünce, döngüden çıkılarak, direkt olarak Loop'tan sonraki kod satırlarına gidilir ve projenin çalışmasına buradan devam edilir.
Burada dikkat edilmesi gereken husus, döngü ilk çalıştırıldığında Tekrar Edilmesi İstenilen Kod Bloğu'ndan önce Şart'ın sağlanıp sağlanmadığına bakılmasıdır, eğer Şart sağlanmıyorsa, ortadaki Tekrar Edilmesi İstenilen Kod Bloğu hiç çalıştırılmadan döngüden çıkılır. Yani Do While-Loop Döngüsünde Şartın sağlanması muhakkak gereklidir.

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