Option Explicit
Private bGo As Boolean
Private Sub Command1_Click()
bGo = True
End Sub
 
Private Sub Form_Load()
WebBrowser1.Navigate2 "http://wohinduwillst.de"
End Sub
 
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)
Dim eleInput As IHTMLInputElement
Dim eleAll As IHTMLElementCollection
Dim eleForm As IHTMLFormElement
Dim eleInputForm As IHTMLElement
 
If bGo Then
Set eleAll = WebBrowser1.Document.getElementsByTagName("INPUT")
 
For Each eleInput In eleAll
    If LCase(eleInput.Type) = "password" Then
        Set eleForm = eleInput.Form
        For Each eleInputForm In eleForm.elements
            If LCase(eleInputForm.Type) = "text" Or LCase(eleInputForm.Type) = _
              "password" Then
                Debug.Print eleInputForm.Name & " " & eleInputForm.Value
            End If
        Next
 
    End If
Next
 Debug.Print eleForm.Name
 
End If
 
End Sub

Gru?

Ralf