Sub .....
        Dim sReader As New StreamReader(Datei, Encoding.GetEncoding(850))
        Dim Record() As String
        Dim lngCount As Long
        Dim b () as String
        Record = sReader.ReadLine().Split(";")
        anz_spalte = Record.Length
        While x < anz_spalte
            textstring(b)
            DataGridView2.Columns.Add(x, Record(x))
            x = x + 1
        End While
        end Sub
    Function textstring(ByVal b As String)
  ' Bearbeitung von b - Entfernen von Ausführungszeichen
        Return b
    End Function