VB.NETでSelenium Aタグを巡る

'aタグを収集
Dim aList As IReadOnlyCollection(Of IWebElement)
aList = driver.FindElements(By.TagName("a"))

'aタグを巡る
Dim item As IWebElement
For Each item In aList
    Dim href
    href = item.GetAttribute("href")

    If IsNothing(href) Then
        'no work
    Else
        ...
  Endif
Next