Παράδειγμα 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