Code:
            Dim Zeile As String
            Dim myStreamReader As StreamReader
            myStreamReader = File.OpenText("words.txt")
            Zeile = myStreamReader.ReadToEnd()
            Dim test As Array = Zeile.Split(Chr(10))
            Dim counter As String = Nothing
            Dim counter2 As String = test.Length
            RichTextBox1.Text = RichTextBox1.Text + Chr(10) + "Wörter nach denen gesuch wird:" + counter2
            While counter <= counter2
                MsgBox(test(counter))
                If asd.Contains(test(counter)) Then
                    RichTextBox1.Text = RichTextBox1.Text + Chr(10) + "Wort Gefunden :" + test(counter)
                    RichTextBox1.Text = RichTextBox1.Text + Chr(10) + test(counter)
                End If
                counter = counter + +1
            End While
            myStreamReader.Close()
            RichTextBox1.Text = RichTextBox1.Text + Chr(10) + "Ende"
Dieses Script durchsuch nen string nach schlüsselwörtern die in einer txt drinne stehen.
aber irgentwie funktioniert das nich.
2 mal öffnet sich das MSG box fenster aber dann schreibt er sofort ende..