Automated Login Will Not Enter Credentials-Prompts Error - excel

Question

I'm encountering an error when trying to automate the login process for Kronos. I'm able to get to the site, but it stops short of entering in my credentials.
Have looked thru old code that I have for reference, and tried to find a solution on Stack but have been unable to. I Referenced MS HTML Object Library, MS Internet Controls, & WebServices 1.0 Type Library.
Sub LoginToKronos()
Const cURL = "https://wikainstruments-sso.prd.mykronos.com/"
Const cUserID = "firstname.lastname#business.com"
Const cPassword = "Password123"
Dim IE As InternetExplorer
Dim doc As HTMLDocument
Dim LoginForm As HTMLFormElement
Dim UsernameInputBox As HTMLInputElement
Dim SubmitButton As HTMLInputButtonElement
Dim PasswordInputBox As HTMLInputElement
Dim LogOnButton As HTMLInputButtonElement
Set IE = New InternetExplorer
IE.Visible = True
IE.navigate cURL
'Wait for initial page to load
Do While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
Set doc = IE.document
'Get the only form on the page
Set LoginForm = doc.forms(0)
'Get the Username textbox and populate it
'input name="loginfmt" id="i0116" value="" class="form-control ltr_override" type="email"
Set UsernameInputBox = doc.getElementById("i0116")
UsernameInputBox.Value = cUserID
'Get the form input button and click it
Set SubmitButton = doc.getElementById("idSIButton9")
SubmitButton.Click
'Get the Password textbox and populate it
'input name="Password" id="passwordInput" class="text fullWidth" type="password"
Set PasswordInputBox = doc.getElementById("passwordInput")
PasswordInputBox.Value = cPassword
'Get the form input button and click it
Set LogOnButton = doc.getElementById("idSIButton9")
LogOnButton.Click
'Wait for the new page to load
Do While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
'avoid any pop up
End Sub
would be nice to get have the credentials populate.