As you have the HtmlAgilityPack already, you can extract the "title" attribute like this:
Option Infer On
Option Strict On
Imports HtmlAgilityPack
Module Module1
Sub Main()
Dim a = "The Link."
Dim doc As New HtmlDocument()
doc.LoadHtml(a)
Dim node = doc.DocumentNode.SelectSingleNode("/a")
Dim title = node?.Attributes("title")?.Value
Console.WriteLine(title) ' outputs "the page"
Console.ReadLine()
End Sub
End Module
Of course, you won't need that many lines of code as that is a complete working example.
The ?.
parts prevent it from throwing an error if node
is Nothing (in this case if there wasn't an "" element) and prevent it from throwing an error if there is no "title" attribute.