HTML object VBA - html

Question

I need to enter to this button but I can't find the name, Id or anything which help me to identify the bottom.
This is the code in HTML.
Create Third Party Customer
What code can I use in VAB to connect with this button?
This is the code:
VBA:
Sub test()
Dim IE As New InternetExplorer, html As HTMLDocument
With IE
.Visible = True
.navigate "http://zvc-t-mdmap01:7507/utils/enterLogin.jsp"
Do Until .readyState = READYSTATE_COMPLETE: Loop
Set html = .document
End With
html.getElementById("username").Value = Sheets("InfoSphere").Range("i4")
html.getElementById("password").Value = Sheets("InfoSphere").Range("i5")
html.getElementById("company_code").Value = Sheets("InfoSphere").Range("i6")
html.getElementById("loginButton_label").Click
Application.Wait (Now + TimeValue("0:00:05"))
With IE
.Visible = True
.navigate "http://zvc-t-mdmap01:7507/worklist/worklistconsole.jsp?colAreaName=Third%20Party%20Customer%20Management%20Process"
Do Until .readyState = READYSTATE_COMPLETE: Loop
Set html = .document
End With
Set link = IE.document.getElementsByTagName("a")
For Each l In link
If l.innerText = "Create Third Party Customer" Then
l.Click
Exit For
End If
Next l
'Add
IE.document.querySelector("[stepname='Create Third Party Customer']").Click
End Sub

Answer 1

It didn't work but I don't receive an error either, this is the final code:
Sub test()
Dim IE As New InternetExplorer, html As HTMLDocument
Dim aTags As Object, aTag As Object
With IE
.Visible = True
.navigate "http://zvc-t-mdmap01:7507/utils/enterLogin.jsp"
Do Until .readyState = READYSTATE_COMPLETE: Loop
Set html = .document
html.getElementById("username").Value = Sheets("InfoSphere").Range("i4")
html.getElementById("password").Value = Sheets("InfoSphere").Range("i5")
html.getElementById("company_code").Value = Sheets("InfoSphere").Range("i6")
html.getElementById("loginButton_label").Click
Application.Wait (Now + TimeValue("0:00:05"))
.Visible = True
.navigate "http://zvc-t-mdmap01:7507/worklist/worklistconsole.jsp?colAreaName=Third%20Party%20Customer%20Management%20Process"
Do Until .readyState = READYSTATE_COMPLETE: Loop
Set html = .document
End With
'Add
Set aTags = html.getElementsByTagName("a")
For Each aTag In aTags
If InStr(aTag.outerHTML, "Create Third Party Customer") > 0 Then
aTag.Click
Exit For
End If
Next
End Sub

Answer 2

Try an attribute = value selector
ie.document.querySelector("[stepname='Create Third Party Customer']").click
Brute force approach:
Dim aTags As Object, aTag As Object
Set aTags = html.getElementsByTagName("a")
Dim event_onClick As Object
Set event_onClick = html.createEvent("HTMLEvents")
event_onClick.initEvent "click", True, False
For Each aTag In aTags
If InStr(aTag.outerHTML, "Create Third Party Customer") > 0 Then
With aTag
.Click
.dispatchEvent event_onClick
.FireEvent "onclick"
End With
Exit For
End If
Next