Макрос для поиска гуглом в Хроме

[caute]

Помогите, пожалуйста, отредактировать макрос для запроса в гугл из Word'a. Для Оперы он выглядит так:

Sub SearchInOpera()
     Shell """C:\Program Files\Opera\opera.exe"" ""http://www.google.com/search?q=%22" & IIf(Selection.Start = Selection.End, Selection.Words.First.Text, Selection.Text) & "%22"""
End Sub

Потребовалось модифицировать этот макрос под Хром, но оказалось, что он воспринимает запрос лишь при условии, что Хром УЖЕ запущен. Таким образом, требуется сначала запустить Хром, а потом уже (лучше спустя 3-4 секунды после команды на запуск) передать ему команду на поиск. То есть надо дописать строку предварительного запуска Хрома в макрос:

Sub SearchInChrome()
     Shell """C:\Documents and Settings\Администратор\Local Settings\Application Data\Google\Chrome\Application\chrome.exe"" ""http://www.google.com/search?q=%22" & IIf(Selection.Start = Selection.End, Selection.Words.First.Text, Selection.Text) & "%22"""
End Sub