Probléme pour parser HTML

Salut tout le monde,
Je suis entrain de travailler sur une application pour mon projet qui consiste à ouvrir un document html en utilisant le moteur de IE "MSHTML" et de filtrer tous les URL.

CODE :
Dim Lien As HTMLLinkElement
Dim Document1 As New mshtml.HTMLDocument
Dim Document2 As New mshtml.HTMLDocument
Dim i As Integer

Document1 = Document2.createDocumentFromUrl("URL", vbNullString)

While Document1.readyState <> "complete"
System.Windows.Forms.Application.DoEvents()
End While

For Each Lien In Document1.links
ListBox1.Items.Add(Document2.links.item(i))
Next

Mais cela ne fonctionne pas, ca me donne "Tentative de lecture ou d'écriture de mémoire protégée. Cela indique souvent qu'une autre mémoire est endommagée."
Est ce que quelqu'un aurait une idée pour résoudre le problème ou y a-t-il une autre façon de faire peut être.
Merci

essaie ça

Code:

---

1 2 3 4 5 6

For Each Lien In Document1.links If (Not lien Is Nothing And Document1.links.Count > 0) Then ListBox1.Items.Add(Document2.links.item(i)) end if Next

---

Pascal