dim items(2)
items(0)="Apple"
items(1)="Orange"
items(2)="Banana"

For Each x in items
  WScript.Echo x
Next