[RESOLVED] Help me get this text!

[Motaro]

Code:

    Dim strText As String
    Dim x As Long, y As Long
    strText = Inet1.OpenURL("http://rscangel.org/highscores.php?skill=attack")


    y = InStr(1, strText, "<td>1</td>")
    If y Then
        x = InStr(y + 20, strText, ">")
        If x Then
           y = InStr(x, strText, "</td>")
           If y Then
                Label22.Caption = Mid$(strText, x + 1, (y - x) - 1)
            End If
        End If
    End If

Site's source code bit:

<td>1</td><td>nitrokyrpa</td><td>99</td><td>

I'm trying to extract 99. 99 only.

With the code above it displays "<td>99" instead of "99"


Been working with this forever! Just can't get get rid of 4 characters.