Click On Web Link VBA

[mrmmickle1]

I am trying to automate a code that we log me in and out at work.

I have this code that logs me into an account:



Option Explicit

Public Sub Press_Button()


'make sure you add references to Microsoft Internet Controls (shdocvw.dll) and
'Microsoft HTML object Library.
'Code will NOT run otherwise.
Dim objIE As SHDocVw.InternetExplorer 'microsoft internet controls (shdocvw.dll)
Dim htmlDoc As MSHTML.HTMLDocument 'Microsoft HTML Object Library
Dim htmlInput As MSHTML.HTMLInputElement
Dim htmlColl As MSHTML.IHTMLElementCollection

Set objIE = New SHDocVw.InternetExplorer

With objIE
.Navigate "https://www.paycomonline.net/v4/ee/ee-login.php" ' Main page
.Visible = 1
Do While .READYSTATE <> 4: DoEvents: Loop
Application.Wait (Now + TimeValue("0:00:02"))

'set user name and password
Set htmlDoc = .Document
Set htmlColl = htmlDoc.getElementsByTagName("INPUT")
Do While htmlDoc.READYSTATE <> "complete": DoEvents: Loop
For Each htmlInput In htmlColl
If htmlInput.Name = "username" Then
htmlInput.Value = "User ID Here"
Else
If htmlInput.Name = "userpass" Then
htmlInput.Value = "Password Here"
Else
If htmlInput.Name = "userpin" Then
htmlInput.Value = "PIN Here"


End If
End If
End If
Next htmlInput

'click login
Set htmlDoc = .Document
Set htmlColl = htmlDoc.getElementsByTagName("input")
Do While htmlDoc.READYSTATE <> "complete": DoEvents: Loop
For Each htmlInput In htmlColl
If Trim(htmlInput.Type) = "submit" Then
htmlInput.Click
Exit For
End If
Next htmlInput
End With

End Sub


After I get the browser to open the page I would like to click on a link.
On the webpage the link appears as Web Timeclock

Here is the source code for the webpage:



<A href="ee-tawebclock.php?clockid=WEB00">Web TimeClock</A><A href="ee-tawebsheet.php?clockid=WEB02&cmdperiodinit=1">Web TimeSheet Read-Only</A><A href="ee-


Is there anyway to add this into the existing code? I am unfamiliar with HTML and using VBA to automate browser functions. I have lucked up so far being able to modify some existing code I found on a thread....