Seguro que no es la forma idónea, pero esto funciona:
Option Explicit
Private Sub EsperarNavegador(ByRef obj As Object)
DoEvents
While obj.Busy = True
DoEvents
Wend
End Sub
Private Sub Form_Activate()
Dim HTMLdoc As HTMLDocument
Dim HTMLlinks As HTMLAnchorElement
wbNav.Navigate "http://guiasciudades.wordpress.com./"
EsperarNavegador wbNav
Set HTMLdoc = wbNav.Document
For Each HTMLlinks In HTMLdoc.links
If HTMLlinks.outerText = "Cuenca" Then
MsgBox HTMLlinks.href
MsgBox HTMLlinks.innerText
HTMLlinks.Click
EsperarNavegador wbNav
Exit For
End If
Next HTMLlinks
Set HTMLdoc = wbNav.Document
For Each HTMLlinks In HTMLdoc.links
If HTMLlinks.outerText = "Casasimarro" Then
HTMLlinks.Click
EsperarNavegador wbNav
Exit For
End If
Next HTMLlinks
End Sub
Va entrar en el primer link "Cuenca" (hay 3).
Si la web tuviese frames, tendrías que específicar en cual se encuentra:
Set HTMLdoc = WebBrowser1.Document.frames("nombre_frame").Document
Saludos.