Pour faire cela, il faut extraire le code source de la page web. Pour cela, place un webbrowser sur ton formulaire. Ensuite, dans la propriété URL, inscrit ton lien (http://....).
Dans un événement click ou autre, écrit:
Dim strCode as string
strCode = webbrowser.Document.DomDocument.documentElement.innerHTML() 'récupère le code source
Ensuite utilise ce que Zen69 t'a dit.
dim iStart as integer, iEnd as integer, iNext as integer
iNext = iEnd
iStart = InStr(iNext, strCode, "<a href=""")
iEnd = InStr(iStart, strCode, """)
MsgBox Mid(strCode, iStart, iStart + iEnd))