Option Explicit
If MsgBox("＊＊＊＊＊", vbYesNo) = 6 Then
    ' ブラウザで開くURL
    Const URL = "https://www.yahoo.co.jp/"

    ' ShellApplicationオブジェクトの作成
    Dim objShell
    Set objShell = CreateObject("Shell.Application")

    ' Edgeの起動と指定したページを開く
    objShell.ShellExecute ("microsoft-edge:" & URL)

    ' ShellApplicationオブジェクトの破棄
    Set objShell = Nothing
Else
    MsgBox "確認してから再度お試しください"
End If