Private Sub Command1_Click()
With WebBrowser1
.Visible = True
Do While .Busy = True: DoEvents: Loop
.Document.Form1.login.Value = "miuser"
.Document.Form1.password.Value = "mipass"
.Document.Form1.botonlogin.Click
End With
End Sub