結局３５行目以降実行されてないですね。 ３５～５２行目をWHILE～WEND内に入れればうまく動くと思います。