ExelVBAでＪＲＡのホームページの”レース結果”（ボタン？埋め込み？）

Message#1 2014年12月7日(日)08時08分
From: 競馬マン

ExelVBAで
ＪＲＡのホームページの”レース結果”（ボタン？埋め込み？
）
をｃｌｉｃｋしたいのですが。スクリプトは次の通りです
元はhttp://vba-code.net殿の無断コピペ改造です。
33行目をＪＲＡのアドレス（元はyahooの)
42行目を、”ヤオフク”－－＞”レース結果”にして
動かそうしたんですが飛んでくれません。
でFor Each NEXTを抜け出すまでの回数（XXXXXX）を
カウントして
objtag(XXXXXX - 1).Click '＜－－これがダさい。
でなんとか動いているんですが
indexでなく、文字列そのもので飛ばす方法を
ご教授ください。

Option Explicit

'ヤフオクに移動する
Sub GoToYahooAuction()
Dim objIE As Object

'IE起動
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True

'Yahooに接続
objIE.navigate "http://www.jra.go.jp/"

'IEを待機
Call IEWait(objIE)

'5秒停止
Call WaitFor(5)

'「ヤフオク!」のリンクをクリック
Call IELinkClick(objIE, "レース結果")

'IEを待機
Call IEWait(objIE)

'5秒停止
Call WaitFor(5)

'IE終了
objIE.Quit

Set objIE = Nothing
End Sub

'リンクをクリックする関数
Function IELinkClick(ByRef objIE As Object, ByVal anchorText As String)
Dim objLink As Object
Dim objtag As Object
Dim XXXXXX As Integer
XXXXXX = 0
For Each objLink In objIE.document.getElementsByTagName("a")
XXXXXX = XXXXXX + 1

If objLink.innerText = anchorText Then
objIE.navigate objLink.href '＜＜ーー飛ばない

Exit For
End If
Debug.Print objLink.innerText
Next
'ここから

Set objtag = objIE.document.getElementsByTagName("A")
IEWait objIE

objtag(XXXXXX - 1).Click '＜－－これがダさい。
'迄がダさい。

End Function

'IEを待機する関数
Function IEWait(ByRef objIE As Object)
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop
End Function

'指定した秒だけ停止する関数
Function WaitFor(ByVal second As Integer)
Dim futureTime As Date

futureTime = DateAdd("s", second, Now)

While Now < futureTime
DoEvents
Wend
End Functi
お礼が少なくて申し訳ありません（再質問がありますので、、、）
ＪＲＡのホーム改変が激しくあまりindexで処理したくないものでして。

競馬の成績、最終オッズ収集用です。
ページよってはボタン類で有ったりなかったり、
例えば9頭未満だと”枠連”がなかったりで
ｉｎｄｅｘが変わったり、同時開催数だの、、、、
で、あまり数値を使いたくないのです。
ＷＩＮ5対象だと以後ｉｎｄｅｘが繰り下がるとか