Muchas gracias a lo dos!
Estoy intentandolo con la primera forma y en la linea
Código:
Vector(Cnt) = MID(Texto,InStr(Texto,"HREF")+4, (InStr(Texto,"</B></A>")-InStr(Texto,"HREF"))-4)
me da el siguiente error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0005)
Argumento o llamada a procedimiento no válidos: 'MID'
