vba - 後者のアラビア語をエンコードする VBA

Question

やあ..

TXTファイルからExcelファイルにデータをコピーするための以下のコードがあります..問題は、データの一部にアラビア語が含まれており、以下の結果が「 ط¨ط´ط±ظٹط© "

では、結果をアラビア語にエンコードするにはどうすればよいでしょうか。

Fname = TempFile
If fsoSheet.FileExists(Fname) = False Then Exit Sub

iRow = 2

Set file2 = fsoSheet.OpenTextFile(Fname, ForReading,true)

Do While Not file2.AtEndOfStream
    Record = file2.ReadLine
    P = Split(Record,",") 

    For iCol = 1 To 8   

'   msgbox("COL"& p(icol)- 1)

        ExcelSheet.Application.Cells(iRow, iCol) = P(iCol- 1)

    Next

    iRow = iRow + 1

Loop



file2.Close