Преобразование кодировки cp1251 в UTF-8 - VBA

Формулировка задачи:

Здравствуйте. Есть большой файл excel, все буквы в крякозябрах. Проверил онлайн декодером показал, что надо сделать преобразование кодировки из cp1251 в UTF-8. Подскажите макрос под Excel для преобразование кодировки из cp1251 в UTF-8. В программировани макросов, я чайник. Заранее спасибо, за помощь.

Решение задачи: «Преобразование кодировки cp1251 в UTF-8»

textual
                            Листинг программы 
                        

                                Workbooks.OpenText FileName:="D:\Temp\primer.csv", Origin:=65001, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:= xlTextQualifierNone, _
        Other:=True, OtherChar:="""", _
        FieldInfo:=Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), _
        TrailingMinusNumbers:=True
                        