すいません。260の一部分書き間違えました。

×
Dim cnt,a1,a2,LoopMax As Integer
For cnt=0 To 1000000

○
Dim cnt,a1,a2,LoopMax As Integer
LoopMax=1000000
For cnt=0 To LoopMax