Option Explicit

Declare Function WideCharToMultiByte Lib "kernel32" _
                            (ByVal codepage As Long, _
                            ByVal dwFlags As Long, _
                            lpWideCharStr As Any, _
                            ByVal cchWideChar As Long, _
                            lpMultiByteStr As Any, _
                            ByVal cchMultiByte As Long, _
                            ByVal lpDefaultChar As String, _
                            ByVal lpUsedDefaultChar As Long) As Long
' CodePage
Public Const CP_ACP =  0         ' ANSI code page
Public Const CP_UTF8 =  65001 

Public Const WC_DISCARDNS& = &H10
Public Const WC_COMPOSITECHECK& = &H200
Public Const WC_SEPCHARS& = &H20

Sub Oem2()
Dim fso As Object, myfile As Object
Dim sRtn As String, sText As String
Dim strArray  As Variant
Dim i As Long
Set fso = CreateObject("Scripting.FileSystemObject")
Set myfile = fso.OpenTextFile("d:\1.txt",  1 )
sText = myfile.ReadAll

sRtn = String$(Len(sText),  0 )
Call WideCharToMultiByte(CP_ACP,  0 , ByVal StrPtr(sText), - 1 , ByVal sRtn, Len(sRtn),  0 ,  0 )

strArray = Split(sRtn, vbCrLf)
For i = LBound(strArray) To UBound(strArray)
    sRtn = String$(Len(strArray(i)) *  2 ,  0 )
    Call WideCharToMultiByte(CP_ACP,  0 , ByVal StrPtr(strArray(i)), - 1 , ByVal sRtn, 
Len(sRtn),  0 ,  0 )
    Debug.Print sRtn
Next i
End Sub