Ciao a tutti ho questo pezzo di codice che mi elimina i tag dal contenuto di un pagina web:

codice:
Dim i1, i2 As Integer
        contentHTML = wb.DocumentText.ToString
        cont = (Len(contentHTML) - Len(Replace(contentHTML, "<", "")))
        For i = 0 To cont
            i1 = contentHTML.IndexOf("<")
            i2 = contentHTML.IndexOf(">")
            contentHTML = contentHTML.Remove(i1, i2 - i1 + 1)
        Next i

Quando avvio la prova mi da errore: 'il conteggio non può essere minore di zero'

Qualcuno sa dirmi come risolvere questo errore?

Grazie in anticipo a tutti. Ciao