Array write to file junk data

[spickles]

All,

I am reading user input from a PowerPoint text box. I store this information to a file. I then read the file back in as a string, and split it using the period as the delimiter. When I use a message box to show the contents of the newly created array, it is fine. Then when I write the contents of the array back to a file, I get garbage data inserted. Here are what the two files look like:

Stored from the text box on the PowerPoint slide is the following:

Text one. Text two. Text three.

Stored from writing the array to a file shows up as Chinese characters when inserted into my post, so I'll attach both files instead. I'm using the following code to open the files and write to them:

##############################################
Dim fname As String
Dim rec As String 'receive string to put the text file into
Dim i As Integer
fname = "C:\demo.txt" 'file to write text box info to (I perform a check if the file isn't there and write a file with blank content - not shown)
i = FreeFile
Open fname For Input As #i
Do While Not EOF(i)
Input #i, rec
Loop
Close #i
################################################
I then split the string to create the array of elements
################################################
Dim elements() As String
Dim lngPosition As Long
elements = split (rec,".")
For lngPosition = LBound(elements) To UBound(elements)

MsgBox elements(lngPosition)

Next lngPosition
################################################
Write array back to a text file
################################################
Dim j As Integer
j = FreeFile
fname = "C:\arrayout.txt"
Open fname For Output As #j
Put #j, ,elements 'can I use the vbCr here?
Close #j
###############################################

Thanks!

[ThorSubak]

in this part..

Dim j As Integer
j = FreeFile
fname = "C:\arrayout.txt"
Open fname For Output As #j
Put #j, ,elements 'you should not put directly the data automatically since the variable is an array and it assumes to be not equivalent to your original data.
Close #j

try this..

Dim j As Integer
j = FreeFile
fname = "C:\arrayout.txt"
Open fname For Output As #j
  For x=0 To uBound(elements)
    Put #j, ,elements(x) 
  Next
Close #j

: the code is not tested:
: gues i help:
__________________
if the problem is solved, please mark your post as RESOLVED and please do rate.