WebBrowser Elemente auslesen

[Stefan1]

Guten Tag zusammen
Ich möchte gerne aus einem WebBrowser1-Elemente in einer UserForm (Excel) die Formelemente (Text, Input usw.) auslesen. Wie könnte das funktionieren. Bis jetzt habe ich folgendes, was nicht richtig funktioniert.
Vielen Dank für Eure geschätzten Hinweise.
LG Stefan1

Code:

Public Sub procElementeAnzeigen()
    On Error Resume Next
    Dim doc As Object
    Dim docI As Object
    Dim AnzahlForm As Long
    Dim i As Integer
    Dim AnzahlElemente As Integer
    Dim y As Integer
    Dim Element As String
    Dim name As String
    Dim typ As String
    Dim val As String
    Dim chec As String
    Dim oncl As String
   
    Me.txtSteuerElemente.Value = ""
Set doc = WebBrowser1.Document
Set docI = doc.forms.Item(0)
    AnzahlForm = docI.length
    For i = 1 To AnzahlForm
      With docI.Item(i)
        name = .name
        typ = .typ
        chec = .Checked
        oncl = .OnClick
        val = .Value
            Element = "Name: " & name & _
              "; Typ: " & typ & _
              "; Value: " & val & _
              "; Checked: " & Checked & _
              "; onClick: " & oncl
          Me.txtSteuerElemente.Value = Me.txtSteuerElemente.Value & (vbCrLf & Element)
      End With
    Next i
Set doc = Nothing
Set docI = Nothing
  End Sub

[schauan]

Hallo Stefan,

was heißt denn "... nicht richtig ..." ? Was geht, und was nicht? Bleibt der Code irgendwo hängen, gibt es Fehlermeldungen, kommen nicht die richtigen Ergebnisse ...?

Was ist Me.txtSteuerElemente?
Wo nimmst Du WebBrowser1 her?
... ?