I'm trying to read Unicode from file correctly using VBA. However I managed read correctly only first string. Code:

Sub ReadTextFile()
Dim Buffer
Dim FSO As FileSystemObjec t
Dim FSOFile As TextStream
Dim FilePath As String
r = 1

FilePath = "C:\text.tx t"

Set FSO = New FileSystemObjec t
If FSO.FileExists( FilePath)
...