VB 遍历网页

Question

VB 使用 WebBrowser 控件时 可以通过
                                Set aset = WebBrowser1.Document.All.Tags("A")
                                
                                For I = 0 To aset.length - 1
                                    If (InStr(1, aset(I).innerText, "关键词")) Then
                                      aset(I).Click
                                    End If
                                Next I
遍历所有链接来单击该链接问题是：如果遍历完了还是找不到这个链接 我需要点击另外一个点击 比如我需要点击的词语是：下一页那该如何写这个代码

Answer 1

For i = 0 To aset.length - 1
    If (InStr(1, aset(i).innerText, "关键词")) Then
        aset(i).Click
        Exit For
    End If
Next i
If i = aset.length Then
    下一页.Click
End If