For Loops & Do While Loops
v These are equivalent:
Dim i As Integer, j As Integer
i = 1
Do While i <=3
    j = 1
    Do While j <= 2
        Print i, j
        j = j+1
    Loop
    i = i+1
Loop
Dim i As Integer, j As Integer
For i = 1 To 3
    For j = 1 To 2
        Print i, j
    Next j
Next i