Sub aaa()
i = 0
While i < 101
a = a + i
i = i + 1
Wend
Debug.Print a
End Sub
Sub bbb()
i = 0
Do While i < 101
a = a + i
i = i + 1
Loop
Debug.Print a
End Sub
Sub ccc()
For i = 1 To 100
a = a + i
Next
Debug.Print a
End Sub