Option Explicit
 
Private Sub Form_Load()
    WebBrowser1.Navigate ("C:\sayHello.html")
End Sub
 
 
Private Function SayHello()
  MsgBox "hello"
End Function
 
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, _
  Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As _
  Variant, Cancel As Boolean)
 
   On Error GoTo WebBrowser1_BeforeNavigate2_Error
 
  If WebBrowser1.Document.activeElement.Name = "sayHello" Then
    SayHello
    Cancel = True
  End If
 
   On Error GoTo 0
   Exit Sub
 
WebBrowser1_BeforeNavigate2_Error:
End Sub

<a name="sayHello" href="#">Say Hello</a>

Gru?

Ralf