Private Sub Command1_Click()
    SearchAndClickLink "Nachrichten"
End Sub
 
Private Sub SearchAndClickLink(Linkname As String)
    Dim AnkerCount As Integer
    Dim i As Integer
 
    AnkerCount = WebBrowser1.Document.frames(0).Document.All.tags("a").length
    For i = 0 To AnkerCount
        If WebBrowser1.Document.frames(0).Document.All.tags("a")(i).innertext = _
          Linkname Then
            WebBrowser1.Document.frames(0).Document.All.tags("a")(i).Click
            Exit For
        End If
    Next
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...