Login to Bank using VBA - vba

Question

I am hoping to complete 2 simple tasks. Input the password, and submit username and password to https://ktt.key.com
I am currently able to display my name in the username tab, but am having trouble entering password. Please provide way to submit too. Thanks for the help guys.
This is what I have so far...
Sub login()
Dim IE As Object
Dim HTMLDoc As Object
Dim objCollection As Object
Const navOpenInNewTab = &H800
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "https://ktt.key.com/ktt/cmd/logon"
Do While IE.Busy Or IE.ReadyState <> 4: Loop
Set HTMLDoc = IE.document
Set htmlColl = HTMLDoc.getElementsByName("moduleTarget")
With HTMLDoc
HTMLDoc.getElementById("userId").Value = "xxxxx"
HTMLDoc.getElementByName("moduleTarget").Value = "xxxxxx"
End With
End Sub

Answer 1

I noticed you have objCollection set as an Object, so I will be using that one to populate your password field.
Change:
With HTMLDoc
HTMLDoc.getElementById("userId").Value = "xxxxx"
HTMLDoc.getElementByName("moduleTarget").Value = "xxxxxx"
End With
To:
With HTMLDoc
HTMLDoc.getElementById("userId").Value = "xxxxx"
End With
And then under that, paste:
Set objCollection = HTMLDoc.getelementsbyname("txtPassword")
objCollection(0).Value = "1234" 'This is your password
So what this does it, it set a new object to the txtPassword Element collection. Then it takes the first index (there's only one index here under "txtPassword") and assigns the value of your choice. The full code (from With HTMLDoc down) should look like this:
With HTMLDoc
HTMLDoc.getElementById("userId").Value = "xxxxx"
End With
Set objCollection = HTMLDoc.getelementsbyname("txtPassword")
objCollection(0).Value = "1234" 'This is your password
Let me know if this works for you.