Макрос что переводит данные с Английского на Испанской. - VB

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

Нужен макрос который будет переводить с Английского на Испанской с использованием translate.google.com
Пример Excel файла я присоединил здесь.

Решение задачи: «Макрос что переводит данные с Английского на Испанской.»

textual
                            Листинг программы 
                        
<font color="blue">Dim</font> Страница1 <font color="blue">As</font> <font color="blue">String</font>
Страница1 = <font color="teal">"http://translate.google.com"</font> <font color="00AA00">'страница translate.google.com</font>
 
<font color="blue">Dim</font> control <font color="blue">As</font> <font color="blue">Object</font>
<font color="blue">Dim</font> IE <font color="blue">As</font> <font color="blue">Object</font>
<font color="blue">Set</font> IE = CreateObject(<font color="teal">"InternetExplorer.Application"</font>)
IE.navigate (Страница1) <font color="00AA00">'открывает указанную в кавычках страницу в данном случае <font color="teal">"ИЦ ГУВД по Челябинской области"</font></font>
 
<font color="blue">Do</font> <font color="blue">While</font> IE.readyState <> <font color="darkblue"><b>4</b></font> <font color="00AA00">'нужно писать <> 4, потому что это код, который показывает, что ВЭБ страница полностью загружена. Так написано в документации по ReadyState</font>
DoEvents
<font color="blue">Loop</font>
 
IE.Visible = True <font color="00AA00">'открывает, делает видимым Микрософт Интернет Эксплоер</font>
apiShowWindow IE.hwnd, SW_SHOWMINIMIZED <font color="00AA00">'сделать окно IE ..., для своей работы должна быть добавлена apiShowWindow Lib</font>
 
<font color="blue">Set</font> IE = <font color="blue">Nothing</font> <font color="00AA00">'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта</font>