'richtextbox1 Quelle
 
 Dim text As String = "hi hi hi hi hi" 'Der inhalt in dem "gesucht" werden soll.
 
'er soll hier aber den Inhalt der richtextbox1 benutzen 
 
 
 
 Dim searchTerm As String = "hi"  ' der inhalt der "durchsucht" werden soll.
 
'er soll hier auch den Inhalt der richtextbox1 benutzen 
 
 
 
 
       Dim dataSource As String() = text.Split(New Char() {" ", ",", ".", ";", _
         ":"},
                                                 StringSplitOptions.RemoveEmpty_
                                                 Entries)
 
 
        Dim matchQuery = From word In dataSource
                      Where word.ToLowerInvariant() = _
                        searchTerm.ToLowerInvariant()
                      Select word
 
 
        Dim count As Integer = matchQuery.Count()
 
        RichTextBox2.Text = searchTerm & count 
 
 
' Ergebniss  >>>>> hi 6