配列の10から20の間にだけ値を入れたいときってあるじゃん？
そういうときに使える超素敵クラスをピラフ作ったからこれ
使えばいいと思うよ。

Class DifferenceArray
　Dim Data
　Dim First

　Sub Initialize(Size)
　　ReDim Data(Size)
　End Sub

　Public Default Property Get Item(Index)
　　Item = Data(Index - First)
　End Property

　Public Property Let Item(Index, Value)
　　Data(Index - First) = Value
　End Property

　Sub Copy(Arr, Lower, Upper)
　　First = Lower

　　Dim i
　　For i = Lower To Upper
　　　Item(i) = Arr(i)
　　Next
　End Sub
End Class