<script language="vbscript">
dim va
va = Array(1,2,3)
</script>
<script language="javascript">
var ja = (new VBArray(va)).toArray();
for (var i=0; i < ja.length; i++)
alert(ja[i]);
</script>
<script language="javascript">
var ja2 = new Array('a','b','c');
</script>
<script language="vbscript">
dim nloop
for nloop = 0 to ja2.length -1
msgbox eval("ja2.[" & nloop & "]")
next
</script>