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

Public Class Form1
    Public Sub New()
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
 
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf 
        ' hinzu.
 
        ListBox1.Items.Add(New MyListBoxData("Hallo", "Tschüss"))
        ListBox1.Items.Add(New MyListBoxData("du", "hi"))
        ListBox1.Items.Add(New MyListBoxData("bin", "weg"))
        ListBox1.Items.Add(New MyListBoxData("Tag", "blabla"))
        ListBox1.Items.Add(New MyListBoxData("es", "ist"))
        ListBox1.Items.Add(New MyListBoxData("hallo", "hi"))
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        Dim text() As String = New String() {"Hallo", "ich", "bin", "es", "Tag"}
 
        For i As Integer = 0 To text.Length - 1
            For j As Integer = ListBox1.Items.Count - 1 To 0 Step -1
                If TypeOf ListBox1.Items(j) Is MyListBoxData Then
                    Dim item As MyListBoxData = CType(ListBox1.Items(j), _
                      MyListBoxData)
 
                    If item.LeftSide = text(i) Then
                        ListBox1.Items.RemoveAt(j)
                    End If
                End If
            Next
        Next
    End Sub
End Class
 
Public Class MyListBoxData
    Public Sub New(left As String, right As String)
        _LeftSide = left
        _RightSide = right
    End Sub
 
    Property LeftSide As String
    Property RightSide As String
 
    Public Overrides Function ToString() As String
        Return Me.LeftSide & " = " & Me.RightSide
    End Function
End Class

  For i As Integer = 0 To ListBox7.Items.Count - 1
            For a As Integer = 0 To ListBox8.Items.Count - 1
                If ListBox7.Items.Contains(a) Then
 
                End If
            Next
        Next

  For i As Integer = 0 To ListBox7.Items.Count - 1
            For a As Integer = 0 To ListBox8.Items.Count - 1
                If ListBox7.Items.Item(i).ToString.Contains(ListBox8.Items.Item( _
                  a).ToString) Then
                    ListBox7.SetSelected(i, True)
                    ListBox9.Items.Add(ListBox7.SelectedItem)
                End If
            Next
        Next