裏でいろいろ動かしているとうまく作動しないことが多いんで、ゲームだけ立ち上げて使ってみるといいかも。

Dim wait
wait = 300

の数字をいじって500とかにすれば安定する可能性はあるかも。