Spanish [SOLUCIONADO] ACENTOS CSV B4I

    Dim tr As TextReader 
    Dim tw    As TextWriter 
    Dim s As String
    lsfichero As String
    
    .....
   genero un csv
    ......

    para modificar en el csv los acentos ,etc... que me salen incorrectos hago

    tr.Initialize(File.OpenInput(Main.gsdircsv, psfichero))
    S = tr.ReadAll
    tr.Close
            
    tw.Initialize2(File.OpenOutput(Main.gsdircsv,psfichero,False),"Windows-1252")
    tw.write(s)
    tw.Close

Dim parser As CSVParser
parser.Initialize
Dim table As List = parser.Parse(File.ReadString(File.DirAssets, "1.csv"), ",", False)
For Each row() As String In table
   'work with row
Next
Dim s As String = parser.GenerateString(table, ",")
File.WriteString(File.DirApp, "1.csv", s)