pues no consigo que me entre en el while...
While PosEx('<a href', Texto, PosIni)>0 Do
se lo salta directamente, y al modificar la condicion "....)=0" entra pero no pilla ningun valor.
Edito: no se que le pasa al 'a href' pero poniendo el protocolo http para buscar la cadena me ha funcionado, muchisimas gracias