Hi All,

What I'm trying to do is to populate a listbox with all the words in a richtextbox

Code:
Dim str As String = RichtextBox1.Text
Listbox1.Items.Add(str)

This works, but it also add's the same words(items).

How can I count the same words(items).
For example:

I like VB.Net very much.
But sometimes VB.Net doesn't like me.

The listbox should give me:

I (1)
like (2)
VB.Net (2)
etc.....

That's what I have so far:

Code:
Dim element As String = Richtextbox1.Text
    If Not ListBox1.Items.Contains(element) Then
        ListBox.Items.Add(element)
else
        ...... count the same words
    End If
How can I do that?

Thanks in advance,

sparrow1