Subプロシージャってそんなにすごいんか
なら全部Subに変えたら実行速度速くなんじゃね?