Option Explicit
 
Private Sub Command1_Click()
Dim objAnkers As Object
Dim Anker As Object
Set objAnkers = WebBrowser1.Document.getElementsByTagName("A")
 
For Each Anker In objAnkers
    If Anker.innerText = "Suchen" Then
        Anker.Click
        Exit Sub
    End If
Next
End Sub
 
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.vbarchiv.de"
End Sub
<pre><code>Kleiner Tipp. Wenn die HTML Seite von Dir ist dann gebe dem Link _
  eine ID dann kannst mit 
 
<pre><code>dim a as object 
set a = webbrowser1.getElementById("idname")

Gru?

Ralf