In addition to what has bee said, if I was trying to debug, my first step would be to add a debug.print to see if this loop is running away.
Do Until .EOF
varRet = SysCmd(acSysCmdUpdateMeter, intLoop)
intLoop = intLoop + 1
debug.print intLoop
...
.MoveNext...