Set objSite = wbBrowser.Document.getElementsByTagName("input")
  For Each obj In objSite
    With obj
      ' Senden-Button klicken
      If .Type = "Text" Then .Value = Form1.Text1.Text Exit For
    End With
    If pbCancel Then Exit Function
  Next obj
  Set obj = Nothing