title: Write Chinese Characters And Alphabet in Cells Into .CSV
body: <p>I'm trying to write data into a CSV file. The data contains both Chinese Characters and general text. My results look like this after exporting it into CSV file:</p>
  
  <p><a href="https://i.stack.imgur.com/pLtSI.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/pLtSI.png" alt="enter image description here"></a></p>
  
  <p>But it is supposed to look like this:</p>
  
  <p><a href="https://i.stack.imgur.com/uSdJo.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/uSdJo.png" alt="enter image description here"></a></p>
  
  <p>All the Chinese Characters, like "物料申请系统", "ADC培训", etc. are all turned into "?".</p>
  
  <p>Here is my code:</p>
  
  <pre><code>Open Location For Output As #1
      For i = 2 To lastrow
          For j = 1 To LastCol
              If j = LastCol Then 'keep writing to same line
                  TextLine = TextLine &amp; Cells(i, j).Text  'read line into variable
              Else 'end the line
                  TextLine = TextLine &amp; Cells(i, j).Text &amp; Deliminator
              End If
          Next j
              Print #1, TextLine
              TextLine = ""
      Next i
  Close #1
  </code></pre>