Παράρτημα: Προσδιορισμός της συνθήκης με τη χρήση της Until

Μερικές φορές είναι πιο φυσικό να εκφράσουμε τη συνθήκη που τερματίζει το βρόχο αντί για τη συνθήκη που πρέπει να είναι αληθής για να εκτελείται ο βρόχος.
Και οι δύο δομές ελέγχου που είδαμε μπορούν να διατυπωθούν με τη χρήση του προσδιορισμού "Until συνθήκη" αντί για τον προσδιορισμό "While συνθήκη".
Έτσι, τα παραδείγματα που έχουμε δει μπορούν να γραφτούν και ως εξής:
Παράδειγμα 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