<SCRIPT language="VBScript">
num = "1,2,5,6,8,10"
tmpnum=split(num,",")
dim arrnum
redim arrnum(tmpnum(ubound(tmpnum)))
for i=0 to ubound(arrnum)
arrnum(i)=0
next
for i=0 to ubound(tmpnum)
arrnum(tmpnum(i))=tmpnum(i)
next
msgbox(join(arrnum,","))
</SCRIPT>