Private Sub aktivieren_Click()
  With WebBrowser1
    .Tag = "Load"
    .Navigate "http://www.blabla.de"
 
    While .Tag <> ""
    DoEvents
    Wend
 
    With .Document.Forms("LoginForm")
      .elements("Name").Value = "test"
      .elements("password").Value = "test"
      .elements("channel").Value = "test"
 
      .submit
    End With
 
  End With
End Sub
 
-------------------------------
Private Sub Form_Load()
 aktivieren_Click
End Sub
 
-------------------------------
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, _
  URL As Variant)
  WebBrowser1.Tag = ""
End Sub