从文本框中删除重复的行并获取已删除行的计数。（VB.NET）

我正在开发一个酒吧管理软件，我做了大部分的工作，但现在我不知道从文本框中删除相同的行并在删除后获得删除行数的代码

我的代码到现在为止：

For Each saveitem As ListViewItem In Form1.ListView1.Items
        RichTextBox1.AppendText(saveitem.Text & vbNewLine)
        TextBox3.AppendText(saveitem.SubItems(1).Text & vbNewLine)
    Next
    RichTextBox1.AppendText(vbNewLine & vbNewLine & "TOTALI:" & "  " &  Form1.TextBoxX5.Text & vbNewLine & "TOTALI pa TVSH:" & "  " & TextBox4.Text)

一种可能的方式：

'get array of individual line of text'
Dim textLines = TextBox3.Text.Split(New String(){vbNewLine}, StringSplitOptions.RemoveEmptyEntries)

Dim totalCount = textLines.Length
Dim noDuplicateCount = textLines.Distinct().Count()
'store number of lines removed'
Dim removedLinesCount = totalCount - noDuplicateCount

'join distinct line of texts by new line into single string'
TextBox3.Text = String.Join(vbNewLine, textLines.Distinct())