Public Sub Test()
    Const ForReading =  1 
    Dim fso As Object
    Dim file As Object
    Dim strIn As String
    Dim x() As Byte
    Dim strOut As String

    
    strIn = ""

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.OpenTextFile("D:\3\Test.txt", ForReading, False)

    Do While file.AtEndOfStream <> True
        strIn = file.Readline
        strOut = ""
        x = StrConv(strIn, vbFromUnicode)
            For i =  1  To UBound(x) Step  2 
            strOut = strOut + Chr$(x(i))
        Next
        Debug.Print strOut
    Loop

End Sub

    Const ForReading =  1 
    Const TristateTrue = - 1 
    Dim fso
    Dim fl
    Dim strin
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fl = fso.OpenTextFile("D:\3\Test.txt", ForReading, False, TristateTrue)

    Do While fl.AtEndOfStream <> True
        strin = fl.Readline
        MsgBox strin
    Loop