我想做的是使用VB6填充登录表单网页。 我使用以下代码：

Dim IE As InternetExplorer   
Dim HTMLDoc As HTMLDocument  
Dim COL As MSHTML.IHTMLElementCollection
Dim ELEMENT As MSHTML.HTMLInputElement

Set IE = New InternetExplorer

IE.Visible = True
IE.Navigate "https://app.listonic.com/lists"

Do
    DoEvents
Loop Until IE.ReadyState = READYSTATE_COMPLETE

Set HTMLDoc = IE.Document
Set COL = HTMLDoc.getElementsByTagName("a")

For Each ELEMENT In COL
    If ELEMENT.innerHTML = "Sign In" Then ELEMENT.Click
Next ELEMENT

Do
    DoEvents
Loop Until IE.ReadyState = READYSTATE_COMPLETE

Set COL = HTMLDoc.getElementsByTagName("input")

For Each ELEMENT In COL
    Debug.Print "Inner HTML - " & ELEMENT.innerHTML
    Debug.Print "Outer HTML - " & ELEMENT.outerhtml
    Debug.Print ELEMENT.getattribute("name")

    If ELEMENT.getattribute("name") = "Email" Then
        Call ELEMENT.setattribute("Value","yourid@server.com")
    End If
    'If ELEMENT.innerHTML = "Sign In" Then ELEMENT.Click
Next ELEMENT

问题在于此代码：

Call ELEMENT.setattribute("Value","yourid@server.com")

不起作用。我的意思是，我无法在“电子邮件”字段的网页上看到“ yourid@server.com”地址。

我该怎么办？