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