Sub forTest()
Dim intCounter As Integer
For intCounter = 1 To 10
If (intCounter Mod 2) = 0 Then
Debug.Print intCounter & " is an even number"
Else
Debug.Print intCounter & " is an odd number"
End If
Next
End Sub