Private Sub Command1_Click()
    With WebBrowser1
        .Document.Forms(0).phoneprefix.Value = "123"
        .Document.Forms(0).phonenumber.Value = "456789"
        .Document.Forms(0).city.Value = "Meine Stadt"
        .Document.Forms(0).zipCode.Value = "76661"
        .Document.Forms(0).street.Value = "Meine Straße"
        .Document.Forms(0).streetnr.Value = "12a"
    End With
End Sub
 
Private Sub Form_Load()
    WebBrowser1.Navigate _
      "http://www.arcor.de/asb/servlet/asb/?style=vertrieb&wmID=NO_WERBEMITTEL" & _
      "wtID=unknown&affID=NO_AFFILIATE"
End Sub