Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Nest an if statement with Do While

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