Extremely simple looping Q

[Sheppe]

Here's something to get you started:

Dim X As Long
 
' Ten rows of ten.
For X = 1 To 100
    Me.Print CStr(X)
 
    If X Mod 10 = 0 Then
        Me.CurrentX = X * 10
        Me.CurrentY = 0
    End If
Next
 
' Five rows of ten, evens only.
For X = 2 To 100 Step 2
    Me.Print CStr(X)
 
    If X Mod 20 = 0 Then
        Me.CurrentX = X * 10
        Me.CurrentY = 0
    End If
Next

I'll let you figure out that last condition. Also, this is all off the top of my head, so test it out first.