Problem with .WriteLine and .OpenTextFile(..., 8, ...)

[spaghetti]

I want to generate a log while my VBA program runs. Firstly, I initialize the log file and add a title. This works. Then, I want to add info (AddinfoLog). When I open the textfile in MS Wordpad, I see Chinese character intead of "test" on the last row. When I change the 8 to a 2 to write (and supersede the original file) as a test, I see "test" in the file, which is correct.
In each case, when opening the txt file in the MULTI Editor, i always see "test", and never the Chinese characters.
How can I solve this problem?

Code:

Public fso As FileSystemObject
Public FSOFile As TextStream
Public LogPath As String

Sub InitializeLog()[INDENT]Set fso = New FileSystemObject
LogPath = mainfolder & "\Log.txt"

Set FSOFile = fso.CreateTextFile(LogPath, 1, True)

FSOFile.WriteLine "Title"
FSOFile.WriteLine "Generation started on " & Date & " at " & Time
FSOFile.Close[/INDENT]
End Sub

Sub AddinfoLog()
[INDENT]Set fso = New FileSystemObject
LogPath = mainfolder & "\Log.txt"

Set FSOFile = fso.OpenTextFile(LogPath, 8, True) '2 for write, 8 for append 'else error bad file mode

FSOFile.WriteLine "test"

FSOFile.Close[/INDENT]
End Sub

 

[spaghetti]

1. When I change LogPath to mainfolder & "\Log.rtf" and I open the rtf file with MS Word, I get a file conversion box ('Select the encoding that makes your document readable.'). The default choice is 'Other encoding: Unicode', and then I get the version with the Chinese characters. If I change the setting to 'Windows (Default)', it shows the same content as the MULTI Editor did, without the Chinese characters.
2. Regardless of the Chinese characters problem, spaces are added between each character. How can I solve this?
It seems to be an encoding problem.

 

[spaghetti]

If I don't close the file and reopen it in the following function, everything works fine. What should I do to let it work correctly with closing and reopening?

Public fso As FileSystemObject
Public FSOFile As TextStream
Public LogPath As String
Sub InitializeLog()[INDENT]Set fso = New FileSystemObject
LogPath = mainfolder & "\Log.txt"

Set FSOFile = fso.CreateTextFile(LogPath, 1, True)
FSOFile.WriteLine "Title"FSOFile.WriteLine "Generation started on " & Date & " at " & Time
'FSOFile.Close '<-- inactive[/INDENT]
End Sub
Sub AddinfoLog()[INDENT]Set fso = New FileSystemObject
LogPath = mainfolder & "\Log.txt"
'Set FSOFile = fso.OpenTextFile(LogPath, 8, True) '2 for write, 8 for append 'else error bad file mode '<-- inactive
FSOFile.WriteLine "test"
FSOFile.Close[/INDENT]
[FONT=monospace]End Sub[/FONT]