给数组多次赋值时，怎样使得原来所赋的值不被覆盖掉，高手请求教！

定义有下面一个数组，给数组多次赋值时，怎样使得原来所赋的值不被覆盖掉。
Dim xshu() As Integer Dim xshu