>>438
Dim henkan(&h0FFFF) as integer
henkan(0)=0
henkan(1)=&h0100
henkan(2)=&h0200
...............
henkan(&hFFFE)=&hFEFF
henkan(&hFFFF)=&hFFFF
を初期化ルーチンに挿入.あとは使いたい時にこの配列を
使うだけ。