ループ文で格納した配列を別配列に上書きする方法（Visual Basic 2010）

Question

前提・実現したいこと

VB2010を用いたプログラミングを作成しています。
実現方法が分からなかったため、質問させていただきます。

以下に示した通り、Do Loopを用い配列にデータを格納しています。
必要なデータは、dat()のii番目とii-1番目だけのデータになります。
データ容量上、すべてのデータを配列に格納することは避けたいので、ii、ii-1番目のデータをloopが回るごとに別の配列の0番目と1番目に上書きしたいと思います。

また、不要になったデータを削除していくことは可能でしょうか？
n回目のループでは、n-1回目以前のデータはすべて不要です。

よろしくお願いいたします。

実現したいこと
・1回目のループ
data(0) = dat(0)
data(1) = dat(1)

・2回目のループ
data(0) = dat(1)
data(1) = dat(2)

・3回目のループ
data(0) = dat(2)
data(1) = dat(3)

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

Private ii as integer
Private dat() as integer
Private data() as integer

`Visual Basic2010
ii = 0
Do (stopwatchが10000msになるまで)
Function() ' dataの値を代入する関数
dat(ii) = data

ii += 1

'????
data(0) = dat(ii-1)
data(1) = data(ii)

'/////////////////////
data(0)とdata(1)に関する処理を行う
'/////////////////////
Loop

### 試したこと

別の変数での制御

### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。