Unicode character creates a line break

Hi,

I'm using line input statement to replace specific unicode characters. The attached file with ChrW(269) causes any how line-breaks eventhough I've tried the replace statement. What to do?

Sub test()

Open "C:\Temp\test.csv" For Input As #1
Open "C:\Temp\ready.xls" For Output As #2
Do While x < 1000
On Error GoTo ender
Line Input #1, vstring

If Not (vstring = "") Then
vstring = Replace(vstring, ChrW(269), ChrW(99))
End If
x = x + 1
Write #2, vstring
Loop
ender:
Close #1
Close #2

End Sub