Un millón de gracias!!! ya funciona correctamente, lo puedes mirar si quieres, no cambiaba porque en paginador había colocado mal el nombre, estaba así:
IF i <> CInt(pa3g) THEN
y tenía que ser así:
IF i <> CInt(pag3) THEN
Que maravilla, gracias otra vez
