Παράρτημα: Βρόχοι με την εντολή loop while

Ορισμένες φορές θέλουμε να ελέγχουμε τη συνθήκη στο τέλος του βρόχου, δηλαδή το περιεχόμενο του βρόχου να εκτελεστεί τουλάχιστον μια φορά. Στις περιπτώσεις αυτές χρησιμοποιούμε τη δομή ελέγχου do ... loop while
Αυτή χρησιμοποιείται ως εξής:

        do
                εντολή
                εντολή
                ...
        loop while συνθήκη
Οι εντολές που ακολουθούν το do εκτελούνται μια φορά και συνεχίζουν να εκτελούνται όσο η συνθήκη είναι αληθής.
Σημαντικό ρόλο έχει αυτή η δομή ελέγχου όταν διαβάζουμε στοιχεία από το χρήστη και θέλουμε να ελέγξουμε την είσοδο για λάθη. Παράδειγμα (θέλουμε ο χρήστης να εισάγει έναν αριθμό μικρότερο του 10):
Sub main()
    Dim Number As Integer
    Do
        Number = InputBox("Δώστε έναν αριθμό μικρότερο του 10")
    Loop While Number >= 10
    MsgBox "Δώσατε " + Str(Number)
End Sub
Αν η συνθήκη δεν είναι αληθής όταν εκτελεστεί το do για πρώτη φορά τότε οι εντολές που περιέχονται σε αυτό θα εκτελεστούν τουλάχιστον μια φορά.
Η δομή ελέγχου do loop while μπορεί να χρησιμοποιηθεί οπουδήποτε θα μπορούσε και οποιαδήποτε άλλη εντολή (π.χ. η MsgBox) δηλαδή ακόμα και μέσα σε μια άλλη do while ... loop ή do ... loop while.