Webbrowser autorellenar web

[M1gu3l]

Quiero autorellenar campos de texto de una web y se su id.He probado

Código:

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

Pero me da error,que puedo hacer?