VBscript Foreach Loop

dim names(2)
names(0) = "Tove"
names(1) = "Jani"
names(2) = "Hege"

for each x in names
document.write(x & "
")
next