'Datei öffnen , laden
        Using OpenFileDialog1 As New OpenFileDialog
            OpenFileDialog1.InitialDirectory = Application.StartupPath
            If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
 
                Dim lines() As String = System.IO.File.ReadAllLines( _
                  OpenFileDialog1.FileName, System.Text.Encoding.Default) _
                  'Umlaute Aktivieren[System.Text.Encoding.Default] 2/3
 
                'Reader.Items.Clear()
                For Each line As String In lines
                    Dim Split() As String = line.Split()
                    Dim saubermachen As New ListViewItem(New String() {Split( _
                      0), Split(1), Split(2)})   'Umlaute 
                    ' Aktivieren[System.Text.Encoding.Default] 2/3
 
                    'Datei Lesen
                    c.AppendText(line) 'einfügen
                Next
                'Jetzt erst Säubern, [ist schneller]
 
 
                Dim line1 As String = "-,_|~:#12345678910."
                c.Text = Regex.Replace(c.Text, line1 & "\t]+|[" & line1 & _
                  "\t]+", String.Empty, RegexOptions.Multiline)   'zahlen 
                ' Entfernen
                ToolStripStatusLabel2.Text = "Geöffnete Liste: " & _
                  OpenFileDialog1.SafeFileName
 
                'wir haben eine Saubere richtextbox1 mit Wörtern drin, jetzt 
                ' verwenden wir sie als Such Quelle. 
 
'soon
 
 
            End If
        End Using
    End Sub