Private Sub mnuAusfüllen_Click()
 With WebBrowser1.Document.Forms(1)
  .elements("vorname").Value = "vorname"
  .elements("name").Value = "name"
  .elements("strasse").Value = "strasse"
  .elements("plz").Value = "plz"
  .elements("ort").Value = "ort"
  .elements("land").Value = "land"
  .elements("tel").Value = ""
  .elements("fax").Value = ""
  .elements("email").Value = "email@email.de"
' Formular abschicken
' .Submit
 End With
End Sub