O que é estruturas de repetição Do Until e Loop Until

A estrutura de repetição Until é o inverso da While. Until significa (repita até que). Funciona assim: até que … <condição> … faça

Exemplos de uso do Do Until e Loop Until

Números de 1 a 10 usando Do Until

Dim cont As Integer
Do Until cont > 10
ListBox1.Items.Add(cont)
cont = cont + 1
Loop

Números de 1 a 10 usando Loop Until

Dim cont As Integer
Do
ListBox2.Items.Add(cont)
cont = cont + 1
Loop Until cont > 10