udskriv x antal linjer

Jeg har en side som henter nogle oplysninger fra en side.
mellem While og End While der tager den de oplysninger der er der og udskriver dem.

men hvis det er 23 så udskriver den kun 1 linje hvordan kan jeg få den til at vise alle 23 linjer så den kører while i en løkke til der ikke finder flere !?

Min kode er:
Protected Sub ManipulateString(ByVal Output As String)

        Dim read As Integer
        Dim readend As Integer
        Dim team As String
        Dim pulje As String
        Dim link As String
        Dim link2 As String
       
        read = InStr(1, Output, "CLUBTEAMS START")
        read = InStr(read, Output, "</table")
       
        While read > 0
       
            read = InStr(read, Output, "href") + 6
            readend = InStr(read, Output, "style") - 2
            link = Mid(Output, read, readend - read)
       
            read = InStr(read, Output, "linkSR") + 8
            readend = InStr(read, Output, "<")
            team = Mid(Output, read, readend - read)

            read = InStr(read, Output, "<td")
            read = InStr(read, Output, ">")
            If Mid(Output, read + 1, 3) = "<a " Then
                read = InStr(read, Output, "linkSR") + 8
                readend = InStr(read, Output, "<")
                pulje = Mid(Output, read, readend - read)
            End If

            read = InStr(read, Output, "href") + 6
            readend = InStr(read, Output, "style") - 2
            link2 = Mid(Output, read, readend - read)
       
            someLabel.Text = link + team + pulje + link2
           
            read = InStr(read, Output, "<table")
        End While

    End Sub