Открытие ссылки в новом окне браузера по умолчанию

Private Declare Function ShellExecute Lib "shell32" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
 
Private Sub Command1_Click()
ShellExecute 0, vbNullString, _
  "http://www.yandex.ru", vbNullString, _
  vbNullString, SW_SHOWNORMAL
 
Sleep 3000
ShellExecute 0, vbNullString, _
  "http://www.google.com", vbNullString, _
  vbNullString, SW_SHOWMAXIMIZED

    Const navOpenInNewWindow = &H1
    
    Set ie = CreateObject("InternetExplorer.Application")
    
    Links = Array("http://www.google.com.ua/", "http://dmitriydudar.com.ua/", "http://www.membrana.ru/")
    
    ie.Visible = True '// поставьте false, чтобы не было видно браузера
 
    first = True
    For Each link In Links
        If first Then
            ie.Navigate2 link
            first = False
        Else
            ie.Navigate2 link, navOpenInNewWindow
        End If
    Next

    Links = Array("http://www.google.com.ua/", "http://dmitriydudar.com.ua/", "http://www.membrana.ru/")
    
    For Each link In Links
        Set ie = CreateObject("InternetExplorer.Application")
        ie.Visible = True '// поставьте false, чтобы не было видно браузера
        ie.Navigate2 link
        set ie = Nothing
    Next