FOR NEXT文を使えば無駄な処理をなくせると思います。