Импортировать текстовый файл как UTF-8

Я использую следующий код vba для импорта всех файлов txt в активный каталог в excel.

Sub ImportTXTfiles() Dim Path As String Path = Application.ActiveWorkbook.Path & "\" Filename = Dir(Path & "*.txt") Do While Filename <> "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy after:=ThisWorkbook.Sheets("Sheet1") Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub 

Однако мои txt-файлы имеют кодировку символов UTF-8. Как я могу импортировать их с помощью вышеуказанного кода, но в код UTF-8?

Я попытался использовать это:

 With CreateObject("ADODB.Stream") .Charset = "utf-8" 'Specify charset For the source text data. End With 

но безуспешно. Ваша помощь приветствуется.

Давайте будем гением компьютера.