Public Sub convert_UnicodeToUTF8()
Dim parF1, parF2 As String
parF1 = "\\afspv1hom001.eu1.1corp.org\g126725$\Documents\Tool abc\csv1\FR0010967323_20171231_SII-TPT-V3-CSV_monthly.csv"
parF2 = "\\afspv1hom001.eu1.1corp.org\g126725$\Documents\Tool abc\csv1\FR0010967323_20171231_SII-TPT-V3-CSV_monthly.csv"
Const adSaveCreateOverWrite = 2
Const adTypeText = 2
Dim StreamSrc, streamDst
Set StreamSrc = CreateObject("ADODB.Stream")
Set streamDst = CreateObject("ADODB.Stream")
streamDst.Type = adTypeText
streamDst.Charset = "UTF-8"
streamDst.Open
With StreamSrc
.Type = adTypeText
.Charset = "UTF-8"
.Open
.LoadFromFile parF1
.CopyTo streamDst
.Close
End With
streamDst.SaveToFile parF2, adSaveCreateOverWrite
streamDst.Close
Set StreamSrc = Nothing
Set streamDst = Nothing
Call csvToxlsx
End Sub