Dim Страница1 As String
Страница1 = "http://translate.google.com" 'страница translate.google.com

Dim control As Object
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate (Страница1) 'открывает указанную в кавычках страницу в данном случае "ИЦ ГУВД по Челябинской области"

Do While IE.readyState <>  4  'нужно писать <> 4, потому что это код, который показывает, что ВЭБ страница полностью загружена. Так написано в документации по ReadyState
DoEvents
Loop


IE.Visible = True 'открывает, делает видимым Микрософт Интернет Эксплоер
apiShowWindow IE.hwnd, SW_SHOWMINIMIZED 'сделать окно IE ..., для своей работы должна быть добавлена apiShowWindow Lib


Set IE = Nothing 'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта