String() to Text

Ahojte, z nasledujúcého kódu by som ptoreboval zistit čo sa nachádza v danom html medzi "nofollow" & X & ">", "</a>&nbsp;" , a potom to porovnať s textom v Uname

 Public Function GetThanks(ByVal thanks As String) As String()
        Dim source As String = New IO.StreamReader(Net.WebRequest.Create(("moja.url")).GetResponse.GetResponseStream).ReadToEnd
        Dim X As String = Label8.Text
        Dim Uname As String = Label2.Text
        Dim UID As String = Label1.Text
        Dim test As String()
        test = StringBetween("www.elitepvpers.com/forum/members/" & UID & "-" & Uname & ".html" & " rel=" & X & "nofollow" & X & ">", "</a>&nbsp;", source, False, False)
        Return New String() {test(0)}
    End Function

Neviem však, kde je chyba, ale potreboval by som z toho stvorit niečo takéto :

Public Function GetThanks(ByVal thanks As String) As String()
        Dim source As String = New IO.StreamReader(Net.WebRequest.Create(("moja.url")).GetResponse.GetResponseStream).ReadToEnd
        Dim X As String = Label8.Text
        Dim Uname As String = Label2.Text
        Dim UID As String = Label1.Text
        Dim test As String()
        test = StringBetween("www.elitepvpers.com/forum/members/" & UID & "-" & Uname & ".html" & " rel=" & X & "nofollow" & X & ">", "</a>&nbsp;", source, False, False)
>>>     Dim full As String 
        full = (data z) test    
        Label9.Text = full
        If Label9.Text = Label2.Text Then / If full = Uname Then
        MsgBox("1")
        Else
        MsgBox("0")
        End If      <<<
        Return New String() {test(0)}
    End Function

Vopred vďaka za každú radu