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