Did anyone notice that he is subtracting the end time from the start time which won't do him any good (besides not having GetTickCount not defined properly).
ret1& = GetTickCount&
ret2& = GetTickCount&
MsgBox Str$(ret1& - ret2& )
Should Be

MsgBox ret2& - ret1&

I know, I know, Silly details...