Парсинг страницы - получение всех искомых значений - Visual Basic .NET

Формулировка задачи:

Доброго времени суток Есть некий сайт допустим www.mysite.ru и там код с допусти 10 тегами <strong></strong> Если я буду делать парсинг по этой функции:

                    Листинг программы
                
 
                        
                          
                    
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

То я получу только самый первое совпадение. А мне надо все. Как сделать так что бы содержмое во всех тегах <strong></strong> записалось в ListBox? Пробовал так но ничего не вышло:

                    Листинг программы
                
While Result = Pars(HtmlText, ("<strong>"), ("</strong>"))
       ListBox1.Items.Add = Result
End While

Решение задачи: «Парсинг страницы - получение всех искомых значений»

textual
                            Листинг программы 
                        
 
                        
                          
                    
<html>
<head>
<h1>Привет</h1>
</head>
<body>
<strong>1</strong>
<br>
<strong>2</strong>
<br>
<strong>3</strong>
<br>
<strong>4</strong>
<br>
<strong>5</strong>
<br>
<strong>6</strong>
<br>
<strong>7</strong>
<br>
<strong>8</strong>
<br>
<strong>9</strong>
<br>
<strong>10</strong>
</body>
</html>