ich hatte mal ein ähnliches Problem und habe es über die SendKeys-Anweisung gelöst. Beispiel:

Private Sub URL_Load(ByVal sURL As String)
 
  With WebBrowser1
    .Tag = "Load"
    .Navigate sURL
 
     ' Warten bis Seite vollständig geladen ist
    While .Tag <> ""
      DoEvents
    Wend
  End With
 
  If sURL = "http://irgendeineseite" Then   ' genaue URL der Seite
    SendKeys "{TAB 2}Benutzername{TAB 3}Kennwort{TAB}{ENTER}"
  End If
 
End Sub

Du musst auf die Seite gehen, wo das Login verlangt wird, dort die genaue URL kopieren und in Deinem Projekt einsetzen und dann über die Tab-Taste feststellen, wie oft Du sie drücken musst um in das gewünschte Feld zu kommen. Du siehst es an der Stelle "TAB 2". Die Anzahl der Tabs einfach hinter TAB setzen.

Ich gebe zu, dass das etwas umständlich ist, aber wenn Du alles zusammen hast, funktioniert es - vorausgesetzt, der Betreiber der Seite baut nicht um.

cu
Moni