Данные в ListView вносятся два раза (получается 2 строки одинаковых данных) - Visual Basic .NET

Public Class Form1
    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        TextBox1.Text = WebBrowser1.Document.Body.InnerText
 
        '-------------------------Алгебра-------------------------'
 
        Dim a As Integer
        Dim b, c, d, d1, f As String
        a = TextBox1.Lines.Count - 1
        For x = 0 To a Step 1
            If TextBox1.Lines(x) = "Предметы" Then
                b = TextBox1.Lines(x + 4)
                c = Replace(b, "+", "")
                d = Replace(c, "H", "")
                d1 = Replace(d, " ", "")
            End If
        Next
        '--------Среднее значение---------'
        Dim aa, ss, Ost, Prov As Long, SRZN As Double
        aa = d ' Вводим исходное число в текстовое поле на форме. 
        ss = 0
        Do
            Ost = aa - Int(aa / 10) * 10 ' Вычисляем очередную цифру как остаток от деления на 10. 
            If Ost > 0 Then ss = ss + Ost Else Exit Do ' Прибавляем остаток к сумме. 
            aa = Int(aa / 10) ' Отбрасываем последнюю цифру. 
        Loop
        SRZN = ss / Len(d1)
        Algebra.Text = d1
 
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WebBrowser1.ScriptErrorsSuppressed = True
        WebBrowser1.Navigate(adress.Text)
    End Sub
 
    Private Sub WebBrowser1_ProgressChanged(sender As Object, e As WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
        Try
            ProgressBar1.Value = CType((e.CurrentProgress / e.MaximumProgress * 100), Integer)
        Catch Ex As Exception
        End Try
        If ProgressBar1.Value = 100 Then
            Label3.Text = "Успешно!"
        End If
    End Sub
End Class