Private Function EditCsv(ByVal Datei As String) As String
        Try
            If Not System.IO.File.Exists(Datei) Then Throw New Exception("Datei" & _
              "nicht vorhanden: " & Datei)
            Return System.IO.File.ReadAllText(Datei).Replace(";", String.Empty)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "EditCSV")
            Return String.Empty
        End Try
    End Function