Ver originalDim Enlaces As ObjectDim Enlace As ObjectSet Enlaces = WebBrowser1.Document.GetElementsByTagName("a")For Each Enlace In Enlaces MsgBox Enlace.HRefNext Enlace