Добрый день!

нужно вытащить из XML файла из определенного тэга русский текст, но вместо этого вылезают кракозямбы. Понимаю, что проблема с кодировкой, но как ее правильно задать?

Set fso = CreateObject("Scripting.FileSystemObject")

Set a = fso.OpenTextFile(fileinfolder)
Do While a.AtEndOfStream <> True
retstring = a.ReadLine
--поисх информации в нужном тэге
Loop

Спасибо

http://www.sql.ru/forum/1240938/problema-s-kodirovkoy-v-xml