Private Sub Command1_Click()
WebBrowser1.Navigate2 Text1.Text
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  If (pDisp Is WebBrowser1.Object) Then 
Debug.Print "Geladen"
End Sub
 
Private Sub Command2_Click()
Text3.Text = WebBrowser1.Document.Forms(0).Name
End Sub

Uli

Wissen ist Macht; nichts wissen macht auch nichts!