Excel VBA: Loops Syntax

Sub ForLoop()
Dim I As Long

For I = 1 To 5 Step 1
MsgBox I
Next I

For I = 5 To 1 Step -1
MsgBox I
Next I

End Sub
---------------------------------

Sub DoLoop1()

Dim I As Long

I = 0
Do While I < 0
MsgBox I
I = I + 1
Loop

End Sub
---------------------------------



Sub DoLoop2()

Dim I As Long

I = 0
Do
MsgBox I
I = I + 1
Loop While I < 0

End Sub

---------------------------------


Sub DoLoop3()
Dim I As Long

I = 0
Do Until I > 5
MsgBox I
I = I + 1
Loop

End Sub

---------------------------------


Sub DoLoop4()
Dim I As Long

I = 0
Do
MsgBox I
I = I + 1
Loop Until I > 5

End Sub