Парсинг HTML - поиск всех вхождений текста

Imports System.Net
Imports System.IO
Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim WC As New WebClient 
        Dim HtmlText As String, Result As String
        HtmlText = WC.DownloadString(New Uri("http://iccup.com/dota/ladder/5x5/page1.html"))
        WC.Dispose()
        Result = Pars(HtmlText, ("gamingprofile/"), (".html"))
    End Sub
    Public Function Pars(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String) As String
        Dim iPos As Integer, iEnd As Integer
        Dim strResult As String
        iPos = strSource.IndexOf(strStart, 0)
        iEnd = strSource.IndexOf(strEnd, iPos + strStart.Length)
        If iPos <> -1 AndAlso iEnd <> -1 Then
            strResult = strSource.Substring(iPos + strStart.Length, iEnd - (iPos + strStart.Length))
        End If
        Return strResult
    End Function
End Class

 Result = Pars(HtmlText, ("gamingprofile/"), (".html"))

 Dim findStrings() As String 'Массив с напарсеными строками
        Dim i As Integer = 0
        Do
            Result = Pars(HtmlText, ("gamingprofile/"), (".html"))
            If Result <> "" Then
                ReDim Preserve findStrings(i)
                findStrings(i) = Result
                i += 1
                HtmlText = Mid(HtmlText, InStr(HtmlText, ".html") + 5) 'обрезаем HtmlText по первому вхождению ".html" (не включая текст ".html")
            End If
        Loop Until Result = "" 'Если функция парсинга вернет пустую строку - выходим из цикла

 Dim strResult As String
    Dim iPos As Integer, iEnd As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim WC As New WebClient
        Dim HtmlText As String
        HtmlText = WC.DownloadString(New Uri("http://iccup.com/dota/ladder/5x5/page1.html"))
        WC.Dispose()
        Pars(HtmlText, ("gamingprofile/"), (".html"), 0)
    End Sub
 
    Public Sub Pars(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, ByVal Pos As Integer)
        iPos = strSource.IndexOf(strStart, Pos)
        iEnd = strSource.IndexOf(strEnd, iPos + strStart.Length)
 
        If iPos <> -1 AndAlso iEnd <> -1 Then
            strResult = strSource.Substring(iPos + strStart.Length, iEnd - (iPos + strStart.Length))
            ListBox1.Items.Add(strResult)
            Pars(strSource, ("gamingprofile/"), (".html"), iPos + strStart.Length)
        Else
            Exit Sub
        End If
    End Sub