错误424在VB中

Question

我正在尝试使用VB创建自动化，使用用户ID和用户登录网站。密码，但它给我错误424对象需要如VB代码所示

Sub Test()
    Set IE = CreateObject("InternetExplorer.application")
    IE.Visible = True
    IE.Navigate ("https://appsglobal.nike.com/Citrix/AppsGlobal/auth/login.aspx" & ActiveCell)
    Do
        If IE.ReadyState = 4 Then
            IE.Visible = False
            Exit Do
        Else
            DoEvents
        End If
    Loop
    IE.Document.Forms(0).all("User Name").Value = "UserID"
    IE.Document.Forms(0).all("Password").Value = "Password"
    IE.Document.Forms(0).submit

End Sub