从VB6 WebBrowser调用vb6函数

Question

我一直在尝试从vb6中的webbrowser点击运行一个程序。我想知道是否有可能。

我正在尝试这样做：

WebBrowser1.Document.Write "<a href=""#"" onClick=""CopyToTextBox(""Hello World"")"">Hello World</a>"

Private Sub CopyToTextBox(ByVal msg as String)
    TextBox1.Text = msg
End Sub

如果没有，还有其他办法吗？

感谢任何帮助。谢谢。