Hola, proba asi
sino por favor pasa la URL y veo
Código:
Private Sub Command1_Click()
With WebBrowser1
.Visible = True
Do While .Busy = True: DoEvents: Loop
.Document.All.login.Value = "miuser"
.Document.All.password.Value = "mipass"
.Document.All.botonlogin.Click
End With
End Sub