Private Sub Saven(Linkname As String, FrameIndex As Integer)
    Dim AnkerCount As Integer
    Dim i As Integer
 
    AnkerCount = WebBrowser1.Document.frames(FrameIndex).Document.links.length
    For i = 0 To AnkerCount
    DA KOMMT EIN FEHLER   --> If WebBrowser1.Document.frames( _
      FrameIndex).Document.links(i).innertext = Linkname Then
            WebBrowser1.Document.frames(FrameIndex).Document.links(i).Click
            Exit For
        End If
    Next
End Sub