>>832
ソースをざっくり見たが、かなり無駄が多いな。
ちゃんと書けば今の量の10分の1以下に抑えられるだろう。
細かい所を上げるとほんと、きりが無いけど少しだけ。
関数を作ってないみたいだね。知らないのなら関数に手をだしてみたら。
あと、ファイル番号(#???ってやつ)はFreeFile()で取得した方がいいよ。