Esistono tre tipologie di ciclo "Do":

    * Ripeti finchè la condizione non risulta falsa (cicla per falso).

          Sub CicloDo()
                 i = 1
                 Do
                  MsgBox "Il valore incremento è " & i, _
              vbInformation, "Ciclo For"
                  i = i + 1
                 Loop Until i > 10
          End Sub
          

    * Ripeti finchè la condizione non risulta vera (cicla per vero).

          Sub CicloDo()
              i = 1
              Do While i < 10
                  MsgBox "Il valore incremento è " & i, _
              vbInformation, "Ciclo For"
                  i = i + 1
              Loop
          End Sub
          

    * Uscita anticipata dal ciclo:

          Sub CicloDo()
              i = 1
              Do
                  MsgBox "Il valore incremento è " & i, _
              vbInformation, "Ciclo For"
                  i = i + 1
                  If i > 10 Then Exit Do
              Loop
          End Sub