<a href="javascript:somewords('somelink',var1,var2,false)">Click here !</a>

Sub Connect_to_system()

Set IE = New InternetExplorerMedium
Dim IEDoc As HTMLDocument
Dim htmlTagCol As IHTMLElementCollection
Dim Generic As HTMLGenericElement

With IE
    .Visible = True
    .navigate "http://example.com/login?username=johndoe&password=123"

    Do Until .readyState = 4
        DoEvents
    Loop

    .navigate "http://example.com/somepage.jsp?reference123"

    Do Until .readyState = 4
        DoEvents
    Loop

    Application.Wait (Now + TimeValue("0:00:10"))

    Set tags = IE.document.getElementsByTagName("a")
    For Each tagx In tags
        If tagx.href = "javascript:somewords('somelink',var1,var2,false)" Then
            tagx.Click
        End If
    Next

End With
End Sub