Private Sub cmdAuskunft_Click()
  With WebBrowser1
    ' URL laden
    .Tag = "Load"
    .Navigate "http://bahn.hafas.de/bin/query.exe/dn"
 
    While .Tag <> ""
      ' URL wird immer noch geladen...
      DoEvents
    Wend
 
    ' Formular ausfüllen
    ' (...heisst "Formular" - siehe Seitenquelltext)
    With .Document.Forms("Formular")
      .elements("from").Value = "Berlin"
      .elements("to").Value = "Hamburg"
 
      ' Abschicken
      .submit
    End With
 
  End With
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, _
  URL As Variant)
  WebBrowser1.Tag = ""
End Sub