Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Use Do Until with if statement

Sub doTest1()     Dim intCounter As Integer     Dim intTest As Integer     intTest = 1     intCounter = 1     Do Until intTest <> 1         Debug.Print "This is loop number " & intCounter         If intCounter >= 5 Then             intTest = 0         End If         intCounter = intCounter + 1     Loop End Sub