Hola, proba esto, te tira los links con su palabra, simplemente tenes que guardar el link de cada palabra en algun lado, y cuando eejcutes este texto te ejecuta el link de el mismo.
Option Explicit
Private Sub Form_Load()
WebBrowser1.Navigate "www.google.com.ar"
End Sub
Private Sub WebBrowser1_DownloadComplete()
Dim vLinks As Object
Set vLinks = WebBrowser1.Document.getElementsByTagName("A")
For Each vLinks In WebBrowser1.Document.links
Debug.Print vLinks.innerText & ": " & vLinks.href
Next
End Sub
saludos.