ต้องการเปรียบเทียบตัวอักษรว่าเหมือนกันหรือไม่ ถ้าเหมือนกันให้นับค่า

Dim countCharacter As String = Me.TextBox1.TextLength

        Dim str As String
        Dim strArr() As String
        Dim count As Integer
        str = TextBox1.Text
        strArr = str.Split(" ")
        For count = 0 To strArr.Length - 1
            ListBox1.Items.Add(strArr(count))


        Next



        Dim i As Integer = 0
        For Each item In ListBox1.Items
            i = i + 1
            Label1.Text = String.Format(" {0}  คำ ", i)
        Next item



        '#############################################################



        '######################### คำที่เหมือนกัน : นับ ####################

        Dim Items = From Item As String In ListBox1.Items
                            Group By Label = Item
                            Into ItemCount = Count()
                            Select Label, ItemCount

        For Each Item In Items

            ListBox1.Items.Add(String.Format("{0    }   : มี {1    } คำ", Item.Label, Item.ItemCount))
        Next