Sub ブラウザ_クローム_を起動してYahooで指定単語を検索する()

    Set システム = CreateObject("WScript.Shell")
    
    検索ワード = "test"
    
    対象URL = "https://search.yahoo.co.jp/search?p=" & 検索ワード
    
    システム.Run ("chrome.exe -url " & 対象URL)
 
End Sub