title: Use "ADODB.Stream" to convert ANSI to UTF-8, miss 1-2 character in the first row
body: <p>I need to convert "ANSI" csv file to "UTF-8" csv file.
  Below code can work, but the first character miss 
  Please see attached screen shot, 
  the original file : Customer
  the output file : 﨏ustomer </p>
  
  <pre><code>Function Convert(myFileIn, myFileOut)
    Dim stream ,strTextText
    Set stream = CreateObject("ADODB.Stream")
  
    stream.Open
    stream.Type = 2 'text
    stream.LoadFromFile myFileIn
    stream.Position = 0
    stream.Charset = "gb2312"
    strText = stream.ReadText
    stream.Close
  
    stream.Open
    stream.Type = 2
    stream.Position = 0
    stream.Charset = "utf-8"
    stream.WriteText strText
    stream.SaveToFile myFileOut, 2
    stream.Close
    Set stream = Nothing
  
  End Function
  </code></pre>
  
  <p><img src="https://i.stack.imgur.com/cxEme.png" alt="enter image description here"></p>