To start you can remove all the for/Next placing PAUSE =20. This is all I can see from your post.

Al.