For lngCnt=1 to 1000000
Next

kısmının bu koddaki işlevi nedir?