'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)
                Dim myReader As StreamReader
                myReader = New StreamReader(OpenFileDialog1.FileName, _
                  System.Text.ASCIIEncoding.Default)
                c.AppendText(myReader.ReadToEnd)
                RegexOptions.Multiline)  
                End If
        End Using