When I run the following VBScript, the error said : The array index over range of 'lngUBound' in line 4.
Can anyone help me ?


1. Dim newarray()

2. Sub add_array(name)
3. Dim lngUBound
4. lngUBound = UBound(newarray) + 1
5. ReDim Preserve newarray(lngUBound)
6. newarray(lngUBound) = name
7. End Sub

8. add_array("abc")
9. add_array("def")
10. add_array("hello")