Sub SaveUTF8()  
 
   ' Пишем в текстовый файл цифры от 1 до 100  
 
   Dim i As Integer  
   Dim fso As Object  
   Dim txt As Object  
     
   Set fso = CreateObject("Scripting.FileSystemObject")  
   Set txt = fso.CreateTextFile(Filename:="C:\Temp\1.txt", Unicode:=True) 'Unicode  
     
   For i = 1 To 100  
       txt.WriteLine (i)  
   Next  
     
   txt.Close  
     
   Set txt = Nothing  
   Set fso = Nothing  
 
End Sub

{quote}{login=NullUzer}{date=02.05.2012 02:59}{thema=}{post}Unicode:=True) 'Unicode{/post}{/quote}  
 
сохраняется сосем не в UTF8 а в UTF-16 LE