无法访问登录按钮。VBA代码

Sub login()
  Dim IE As Object
  Dim HTMLDoc As Object, HTMLDoc2 As Object
  Dim objCollection As Object

  Const navOpenInNewTab = &H800
  Set IE = CreateObject("InternetExplorer.Application")
  IE.Visible = True
  IE.Navigate "https:///CWRWeb/displayMemberLogin.do"

  Do While IE.Busy Or IE.ReadyState <> 4: Loop

  Set HTMLDoc = IE.Document

  With HTMLDoc
  HTMLDoc.getElementByID("userID").Value = "yyyy"    'Entering credential
  HTMLDoc.getElementByID("passwd").Value = "xxxxx"
  End With


  Set objCollection = IE.Document.getElementByID("login-s")
  objCollection.Click

End Sub
Sub login()
  Dim IE As Object
  Dim HTMLDoc As