title: File Export - Strange Characters
body: <p>I've been asked to replicate a file sent by the following Excel VBA code. The problem is with the export of the data contained within the "for" loop. The quantity ".111" is being written in the export file as "øSã=", ".222" is being written as "øSc>", and ".333" is being written as "ú~ª>". </p>
  
  <p>I'm not entirely sure what is happening here. But any rate the target legacy system I have send our data to is able to read this data correctly (i.e. it is converted back into the original values). </p>
  
  <p>Does anyone have any thoughts on what is going on and how to replicate this behaviour so that my file can be read?</p>
  
  <pre><code>Type Rigo_File
  Status As Integer
  Invio As Integer
  Codice As String * 13
  Quantita As Single
  Udm As Integer End Type
  
  Type type_file
  Partita As String * 10
  Macchina As String * 25
  articolo As String * 25
  colore As String * 25
  note As String * 25
  urgenza As Integer
  Invio As String * 3
  Righi(20) As Rigo_File
  End Type
  
  Dim NrOpen As Integer
  Dim NomeFile As String, NomeFileTmp As String
  Dim Rigo_File
  Dim type_file
  Dim typeM As type_file
  Dim c As Integer
  
  Sub CREATEFILE()
  FILEDIR = "C:\"
  FILENAMEE = "TESTFILE1.txt"
  
  Partita = Right(Cells(1, 3), 10)
  Macchina = Left(Cells(2, 3), 25)
  articolo = Left(Cells(3, 3), 25)
  colore = Left(Cells(4, 3), 25)
  note = Left(Cells(5, 3), 25)
  urgenza = CDbl(Cells(6, 3))
  
  With typeM
  .Partita = Partita
  .Macchina = Macchina
  .articolo = articolo
  .colore = colore
  .note = note
  .urgenza = urgenza
  .Invio = "001"
  For ci = 1 To 20
  .Righi(ci).Status = True
  .Righi(ci).Invio = 1
  .Righi(ci).Codice = Cells(8 + ci, 2)
  .Righi(ci).Quantita = Cells(8 + ci, 3)
  .Righi(ci).Udm = 1
  Next ci
  End With
  
  NrOpen = FreeFile
  On Error GoTo 0
  
  Open FILEDIR &amp; FILENAMEE For Random Access Write Shared As #NrOpen Len = Len(typeM)
  
  Put #NrOpen, 1, typeM
  Close #NrOpen
  </code></pre>
  
  <p>End Sub</p>