New Post: Link extraction problem

Public Function GetLinkAddress(ByVal HtmlSource As String) As String
        Dim LinkExtract As String = Nothing
        Dim htmldoc As New HtmlAgilityPack.HtmlDocument()
        htmldoc.LoadHtml(HtmlSource)
        Dim qq = From t In htmldoc.DocumentNode.Descendants("a") Where t.Attributes.Contains("href") _
                                              Select t
        For i As Integer = 0 To qq.Count - 1
            For m As Integer = 0 To qq(i).Attributes.Count - 1
                If qq(i).Attributes(m).Name = "href" Then
                    LinkExtract = qq(i).Attributes(m).Value
                    Exit For
                End If
            Next
        Next
        Return LinkExtract
End Function