Text dosyasına aktarırken rusça dil sorunu

[svorm]

Merhaba

Alttaki kod ile text dosyası yaratıp exceldeki bilgileri text dosyasıa aktarıyorum.
Fakat excelde Rusça karakter olduğunda hata alıyorum.
Bu konuda yardımcı olabilirmisiniz.

strPath = "C:\Users\**\" & d & ".txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Dim oFile As Object
Set oFile = fso.CreateTextFile(strPath)
For k = 6 To Sheets("ym").Range("C10000").End(xlUp).Row
 oFile.writeline Sheets("ym").Range("C" & k).Value
Next k
oFile.Close
Set fso = Nothing
Set oFile = Nothing

 

[Haluk]

Örnek bir dosya ekleyin, duruma bakalım ....

.

 

[svorm]

Haluk bey merhaba,

Alttaki linkte örnek dosya bulabilirsiniz.

dosya

Teşekkürler

 

[Haluk]

Adım Haluk, Halik değil...

Dosyanız ektedir.

.

 

[svorm]

Merhaba dosyayı maalesef indiremedim.
İlginiz için teşekkür ederim.

Fakat ilgilenenler için alttaki satırı revize ettiğimde unicode olarak görüp sonuca ulaştım.
İyi çalışmalar

Set oFile = fso.CreateTextFile(strPath)

Set oFile = fso.CreateTextFile(strPath, False, True)