VB Code:
  1. Dim A(1 To 4) As String

  2. Dim B(5 To 7) As String

  3. Dim C(8 To 9) As String

  4. A(1) = "1"

  5. A(2) = "2"

  6. A(3) = "3"

  7. A(4) = "4"

  8. B(5) = "5"

  9. B(6) = "6"

  10. B(7) = "7"

  11. C(8) = "8"

  12. C(9) = "9"

  13. For x = 1 To 4

  14.     For y = 5 To 7

  15.         For z = 8 To 9

  16.             Debug.Print A(x) & "," & B(y) & "," & C(z)

  17.         Next

  18.     Next

  19. Next