Devi fare in modo che la riga

lonPos = InStr(1, html, strStart, vbTextCompare)

non faccia partire la ricerca da 1 ma da lonPos+1 trovato in precedenza