Добрый день, появилась необходимость написать макрос, который сохраняет значение определенной ячейки в файл .txt, но надо чтобы данные были записаны в юникоде.  
 
До этого использовал для записи следующий прием:  
 
FileName = ThisWorkbook.Path & "\beta\beta1.txt"  
Open FileName For Output As #1  
For i = 101 To 101  
If Cells(i, 1) <> "" Then  
Print #1, Cells(i, 1).Value  
End If  
Next i  
Close #1  
 
Чем необходимо дополнить код, чтобы сохранялся именно юникод? Заранее спасибо ))