一つのデータが2バイトで済むなら a[z,y,x] の代わりに a$=" " * 200 * 100 * 200 としておいて a$[z * 20000 + y * 200 + x] = chr$(12345) if a$[z * 20000 + y * 200 + x] == chr$(12345) then ～ のようにすればできるかも。 負の値はうまいこと変換してね。