VBA Access Internet Multiple layers of password

[dwilson38550m]

Hi,

I have created a vba script to access my bank Internet site (i have successfully entered the user Id and password) but on the next tier of passwords it asks for 2nd 3rd and 4th digit of a pin and also 1st 2nd and 3rd digit of a password. I have tried to find the source code for the parameter in IE (i belive this is id2 id3 and id4 and pass1 pass2 and pass3. I can't seem to populate this data on the screen. Is there anything anyone can suggest such that a message box appears to allow me to enter the data and access the IE website as I would like to download data from this?

Thanks

 

[dwilson38550m]

Sorry the script I have used to get passed the first level of security is (I have changed the name of the user ID and site ID) :

Dim HTMLDoc As HTMLDocument
Dim MyBrowser As InternetExplorer

Sub webaccess()
'
' webaccess Macro
'

Dim MyHTML_Element As IHTMLElement
Dim MyURL As String
On Error GoTo Err_Clear
MyURL = "https://rbsif.facflow.com/logon/Logon.do?ct_orig_uri=https%3A%2F%2Frbsif.facflow.com%3A443%2Fff%2Fpages%2Fdefault.jsp&domain=.facflow.com"
Set MyBrowser = New InternetExplorer
MyBrowser.Silent = True
MyBrowser.navigate MyURL
MyBrowser.Visible = True
Do
Loop Until MyBrowser.readyState = READYSTATE_COMPLETE
Set HTMLDoc = MyBrowser.document
HTMLDoc.all.id2.Value = "123456"
HTMLDoc.all.id1.Value = "abcde"


For Each MyHTML_Element In HTMLDoc.getElementsByTagName("input")
If MyHTML_Element.Type = "submit" Then MyHTML_Element.Click
Next


HTMLDoc.all.pass1.Value = "8"
HTMLDoc.all.pin1.Value = "9"

For Each MyHTML_Element In HTMLDoc.getElementsByTagName("input")
If MyHTML_Element.Type = "submit" Then MyHTML_Element.Click
Next


Err_Clear:
If Err <> 0 Then
Err.Clear
Resume Next
End If

'
End Sub