Example - For...Next Statement

Sub Main()
  Dim x,y,z, Msg
  For x = 1 To 3
    For y = 1 To 3
        For z = 1 To 3
            Msg = Msg & "Looping " & z & y & x & ", "
        Next z
    Next y
  Next x
  MsgBox Msg
End Sub