Private Sub cmdAuskunft_Click()
  With WebBrowser1
    ' URL laden
    .Tag = "Load"
    .Navigate "http://www.12sms.net/"
 
    While .Tag <> ""
      ' URL wird immer noch geladen...
      DoEvents
    Wend
 
    With .Document.Forms("LoginForm")
      .elements("Name").Value = "Niko"
      .elements("password").Value = "Hallo"
 
      ' Abschicken
      .submit
    End With
 
  End With
End Sub
 
Private Sub Form_Load()
 cmdAuskunft_Click
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, _
  URL As Variant)
  WebBrowser1.Tag = ""
End Sub