Internet Explorer Buttons

Sub IEdata(webSite As String)
Dim IE As Object, z As Object, str As String
Dim oTable As Object, i As Integer, j As Integer
Dim twoFactorPos As Integer, twoFactorStr As String
Dim strMatrix1 As String, strMatrix2 As String, strMatrix3 As String
Dim numMatrix1 As Integer, numMatrix2 As Integer, numMatrix3 As Integer
Dim ieForm As Object, strSignOn As String, numClose As Integer


Rem Logon
strSignOn = Range("'Secure Info'!B10").Value
If strSignOn = "" Then
    Application.ActiveWorkbook.Activate
    AppActivate "SignOn.xls"
    strSignOn = InputBox("Enter SignOn ID Now", "SignOn ID")
End If


Rem Password
strPassword = Range("'Secure Info'!B11").Value
If strPassword = "" Then
    Call InputPassword
    'AppActivate "Sign-On Page"
End If


Rem Close this Workbook after website opens
numClose = Range("'Secure Info'!B12").Value


i = 0
Set IE = GetHTMLDocument(webSite)
    With IE 'IE.Document
        For Each z In .all  '.all
            i = i + 1
            'Debug.Print z.Value
            'Debug.Print z.Options(z.SelectedIndex).Text
            'Debug.Print "i=" & i
            'Debug.Print "z.ID=" & z.ID
            'Debug.Print "z.tagName=" & z.tagName
            If i = 1 Then
                str = z.innertext
                twoFactorPos = InStr(1, str, "Two Factor", vbTextCompare)
                strMatrix1 = Mid(str, twoFactorPos + 10, 2)
                numMatrix1 = Range("'Secure Info'!" & strMatrix1).Value
                strMatrix2 = Mid(str, twoFactorPos + 12, 2)
                numMatrix2 = Range("'Secure Info'!" & strMatrix2).Value
                strMatrix3 = Mid(str, twoFactorPos + 14, 2)
                numMatrix3 = Range("'Secure Info'!" & strMatrix3).Value
                'Debug.Print strMatrix1, numMatrix1
                'Debug.Print strMatrix2, numMatrix2
                'Debug.Print strMatrix3, numMatrix3
            End If
            If z.ID = "form1" Then Set ieForm = z
        Next z
    End With
    With IE.GetElementsByName("Matrix1")(0)
        .Value = numMatrix1
    End With
    With IE.GetElementsByName("Matrix2")(0)
        .Value = numMatrix2
    End With
        With IE.GetElementsByName("Matrix3")(0)
        .Value = numMatrix3
    End With
        With IE.GetElementsByName("SignOnID")(0)
        .Value = strSignOn
    End With
    With IE.GetElementsByName("Password")(0)
        .Value = strPassword
    End With
If strSignOn <> "" And strPassword <> "" Then ieForm.Submit
On Error GoTo EndNow
If numClose = 1 Then
    Application.Workbooks.Close
End If
EndNow:
On Error Resume Next
IE.SetFocus
'Sleep ("00:00:" & Range("'Secure Info'!D14"))  'Wait x seconds
AppActivate "Sign-On Page"
AppActivate "Accounts Summary"
End Sub


'Find an IE window with matching location and get a reference
'to the document object from the loaded page. Assumes no frames.
Function GetHTMLDocument(sAddress As String) As Object
  Dim objShell As Object, objShellWindows As Object, o As Object
  Dim retVal As Object, sURL As String
  Set retVal = Nothing
  Set objShell = CreateObject("Shell.Application")
  Set objShellWindows = objShell.Windows
  'see if IE is already open
  For Each o In objShellWindows
  sURL = ""
  On Error Resume Next
  sURL = o.Document.Location
  On Error GoTo 0
  If sURL <> "" Then
  If sURL Like sAddress & "*" Then
  Set retVal = o.Document
  Exit For
  End If
  End If
  Next o
  Set GetHTMLDocument = retVal
End Function