а его можно увидеть?

'Другие HKEY_CASSES_ROOT\MIME\Database\Charset  
Const codepageWin1251 = "windows-1251"  
Const codepageDOS866 = "cp866"  
Const codepageKOI8R = "koi8-r"  
Const codepageUTF7 = "utf-7"  
Const codepageUTF8 = "utf-8"  
 
Const adWriteChar = 0  
Const adTypeText = 2    
Const adSaveCreateOverWrite = 2  
 
Dim pStream As Object, sTxt As String  
 
Set pStream = CreateObject("ADODB.Stream")  
pStream.Type = adTypeText  
 
pStream.Charset = codepageWin1251  
pStream.Open  
pStream.LoadFromFile "c:\test\ansi.txt"  
sTxt = pStream.ReadText    
pStream.Close  
 
pStream.Charset = codepageUTF8  
pStream.Open  
pStream.WriteText sTxt, adWriteChar  
pStream.SaveToFile "c:\test\utf-8.txt", adSaveCreateOverWrite  
pStream.Close

Я предполагал, что под файлом Excel подразумевался текстовый файл с разделителями.  
Можно, конечно, подобным же образом перекодировать текстовые значения яеек. Только какой в этом смысл?

пытаюсь использовать функцию ChangeFileCharset (по ссылке выше) для конвертации файла .xml с кодировкой ANSI в кодировку UTF-8 и что-то не выходит.    
на этапе FileContent$ = .ReadText текст становится иероглифами.  
 
помогите пожалуйста