Loop through unicode file aaahrghhh

[M. Posseth]

does anyone know why this code fails wih a unicode file ??

i have a big problem :-(

i need to loop line by line through a unicode text file

if i use below code on Ansi text files it works like expected ,, however on
unicode files i receive sections

example

test1
test2
test3

results with ansi in three seperate msgboxes

however a unicode file wil give one msgbox with the three lines i already
thought that this would not be such a big problem because it should be
possible to split the string with vbcrlf
however this does also not work

anyone an idea ??????

Set TsStream = fso.OpenTextFile(sFile, ForReading, , TristateTrue)
Do Until TsStream.AtEndOfStream
sLine = StrConv(Trim$(TsStream.ReadLine), vbUnicode)
MsgBox sLine
Loop

[M. Posseth]

solved it



unicode text strings are separated by cariage returns whitout line feeds