Παράδειγμα do while ... loop (εμφανίζει στην οθόνη τους αριθμούς από το 0 μέχρι το 4):
Sub main()
Dim i As Integer
i = 0
Do Until i >= 5
    MsgBox i
    i = i + 1
Loop
End Sub
Παράδειγμα do ... loop while
(θέλουμε ο χρήστης να εισάγει έναν αριθμό μικρότερο του 10):
Sub main()
    Dim Number As Integer
    Do
        Number = InputBox("Δώστε έναν αριθμό μικρότερο του 10")
    Loop Until Number < 10
    MsgBox "Δώσατε " + Str(Number)
End Sub