При нажатии на одну кнопку, открывается сразу несколько страниц

Private Sub Command1_Click()
h = "http://www.yahoo.com/"
 
a = "https://www.cyberforum.ru/newreply.php?do=newreply&noquote=1&p=3290636"
 
WebBrowser1.Navigate   h & a
End Sub

Option Explicit
Sub Открыть()
 
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
 
    IE.navigate "http://************.com" & "https://www.cyberforum.ru/visual-basic/thread627295.html#post3290636"
    'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта
    Set IE = Nothing
End Sub

Public Const link As String = "www.ya.ru"
Public Const link2 As String = "www.mail.ru"

Private Declare Function ShellExecute Lib "shell32.dll" 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 Const SW_SHOW As Long = 5
 
Public Sub Navigate(xFrm As Form, ByVal NavTo As String)
On Error Resume Next
ShellExecute xFrm.hwnd, "open", NavTo, vbNullString, vbNullString, SW_SHOW
End Sub
 
Private Sub Command1_Click()
Navigate Form1, link
Navigate Form1, link2
End Sub

Option Explicit
Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "http://yandex.ru", 1, False
objWshShell.Run "http://mail.ru", 1, False
Set objWshShell = Nothing
WScript.Quit 0

Option Explicit
 
Sub Запустить_браузер_по_умолчанию_с_нужными_страницами()
 
    Dim objShell
    Set objShell = CreateObject("WScript.Shell")
    objShell.Run "http://yandex.ru", 1, False
    objShell.Run "http://mail.ru", 1, False
    'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта
    Set objShell = Nothing
 
End Sub

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub Command1_Click()
    Dim objShell
    Set objShell = CreateObject("WScript.Shell")
    objShell.Run "http://yandex.ru", 1, False
    Sleep 500
    objShell.Run "http://mail.ru", 1, False
    Set objShell = Nothing
 End Sub