Type mismatch error 13

Hello there,

I can figure out why I am getting a Type mismatch error 13 for this code.

Please Login or Register  to view this content.

It may be I is not defined. I should be a long(Integer) which represent a row number.