三維陣列的問題!!!(編號:744)

我用三維陣列時...
要如何把資料存入第二層和第三層丫???
例:
Dim B(2,2,2) as integer
b(0,0,0)=1        ==>第一層
b(1,0,0)=2        ==>第一層
b(2,0,0)=3        ==>第一層
b(0,0,0)=4        ==>這時要在第二層...不過b(0,0,0)中
已有資料了如果我這麼寫的話...它
              就會把原資料蓋過去了
b(0,1,0)=5        ==>第二層...這兒就沒事了
b(0,2,0)=6        ==>第二層...這兒就沒事了
b(0,0,0)=7        ==>和第二層開頭的問題一樣...不過
b(0,0,0)中已有資料了如果我這麼
              寫的話...它就會把原資料蓋過去了
b(0,0,1)=8        ==>第三層...這兒就沒事了
b(0,0,2)=9        ==>第三層...這兒就沒事了
請問高手們...這個問題該如何解決呢???
PS.   我要寫的東西...是無法用迴圈存入資料的...
若有更好的寫法...也請賜教!!!!

謝謝!!!