Здравствуйте!  
Помогите, пожалуйста.  
 
Написал макрос под следующую задачу.  
Нужно все txt-файлы из папки по очереди целиком записать каждый в отдельную ячейку столбца так, чтобы получилась таблица со столбцами:  
1. имя файла;  
2. содержимое файла.  
 
Макрос выглядит так:  
 
Sub ImportFiles()  
Directory = "C:\test2\"  
r = 1  
' Вставка заголовков  
Cells(r, 1) = "Имя файла"  
Cells(r, 2) = "Текст файла"  
Range("A1:B1").Font.Bold = True  
' Получение первого файла  
f = Dir(Directory, 7)  
Do While f <> ""  
s = ""  
pathf = Directory & f  
r = r + 1  
' Запись данных из файла в переменную  
Open pathf For Input As #r  
Do Until EOF®  
Line Input #r, data  
s = s & data  
Loop  
' Вывод имени файла и его содержимого  
Cells(r, 1) = f  
Cells(r, 2).Value = s  
Close #r  
f = Dir  
Loop  
End Sub  
 
ПРОБЛЕМА: В результате все кирилические символы заменены на абракадабру (см. вложение). Кодировка исходного файла utf-8.  
Как поправить макрос?  
Заранее большое спасибо!