UTF-8 ve Farklı kaydet seçeneği hk.

[chakistes]

Merhaba arkadaşlar TXT aktarma işlemi için UTF -8 ve yazdır.txt yerine farklı kaydet seçeneği çıkmasını istiyorum.
With Worksheets("sayfa2")
kayıt_yeri = ThisWorkbook.Path & "\YAZDIR.txt"
atxt = FreeFile
Open kayıt_yeri For Output As #atxt
For i = 5 To Range("a65536").End(3).Row
evn = .Cells(i, 1) & vbTab
evn = evn & .Cells(i, 2) & vbTab
evn = evn & .Cells(i, 3) & vbTab
evn = evn & .Cells(i, 4) & vbTab
evn = evn & .Cells(i, 5) & vbTab
evn = evn & .Cells(i, 6) & vbTab
Print #atxt, evn
Next
Close #atxt
End With