Private Sub test1()
 
 
        Dim text As String = "Hallo. Ich bin es. Oder bin ich es nicht?"
 
        'Satzzeichen aus dem Text entfernen
        text = text.Replace(".", "") : text = text.Replace("?", "")
 
        'Text in eine Liste von Worten aufspalten
        Dim wordlist As New List(Of String)(text.Split(" "c))
 
        'Ersetz-Liste
        Dim replacelist As New List(Of String)
        With replacelist
            .Add("Hallo = Tschüss")
            .Add("du = hi")
            .Add("bin = weg")
            .Add("Tag = blabla")
            .Add("es = ist")
            .Add("hallo = hi")
        End With
 
        'StartsWith-Stringvergleich
        Dim swc As New startswithcomparer
 
        'Ersetz-Liste anhand der Wort-Liste kürzen ...
        For i As Integer = replacelist.Count - 1 To 0 Step -1
            If wordlist.Contains(replacelist(i), swc) Then
                replacelist.RemoveAt(i)
            End If
        Next i
 
        'Listenbindung an Listbox-Control
        ListBox1.DataSource = replacelist
 
    End Sub
 
 
    Public Class startswithcomparer
        Inherits EqualityComparer(Of String)
 
        Public Overloads Overrides Function Equals(x As String, y As String) As _
          Boolean
            If y.Trim.ToUpper.StartsWith(x.Trim.ToUpper) Then Return True
            Return False
        End Function
 
        Public Overloads Overrides Function GetHashCode(obj As String) As _
          Integer
            Return obj.GetHashCode
        End Function
    End Class