Private Sub Command1_Click()
    SearchAndClickLink "Alle Schiffe", 1
End Sub
 
Private Sub SearchAndClickLink(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
        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

mfg
brave@heart

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