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

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

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
 
        Dim item As New ListViewItem("Алгебра")
        item.SubItems.Add(d1)
        item.SubItems.Add(Math.Round(SRZN, 2))
        ListView1.Items.Add(item)
 
        '-------------------------Английский язык-------------------------'
 
        Dim a1 As Integer
        Dim b1, c1, d2, f1 As String
        a1 = TextBox1.Lines.Count - 1
        For x = 0 To a Step 1
            If TextBox1.Lines(x) = "Предметы" Then
                b1 = TextBox1.Lines(x + 5)
                c1 = Replace(b1, "+", "")
                d2 = Replace(c1, "H", "")
                f1 = "Английский язык: " & Replace(d2, " ", "")
                Label2.Text = f1 & " " & Len(f1)
            End If
        Next
    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

Imports System.IO
Imports System.Net
...
        Dim request As WebRequest = WebRequest.Create("https://www.cyberforum.ru/vb-net/")
        Dim response As WebResponse = request.GetResponse()
        Dim responseStream As Stream = response.GetResponseStream()
        Dim reader As StreamReader = New StreamReader(responseStream)
        My.Computer.FileSystem.WriteAllText("c:\test.txt", reader.ReadToEnd, False)
        response.Close()

Ost = aa Mod 10

Dim hash As New HashSet(Of ListViewItem)
        ' ' '
        Dim item As New ListViewItem("Алгебра")
        item.SubItems.Add(d1)
        item.SubItems.Add(Math.Round(SRZN, 2))
        hash.Add(item)
        ' ' '
        ListView1.Items.AddRange(hash.ToArray)

Public Class Form1
    Dim hash As New HashSet(Of ListViewItem)
    ' ' '

ListView1.Items.AddRange(hash.ToArray)

ListView1.Items.Clear()

ListView1.Items.Clear()