Sub ブラウザ_クローム_を起動してGoogleで指定単語を検索する() Set システム = CreateObject("WScript.Shell") 検索ワード = "test" 対象URL = "https://www.google.co.jp/search?q=" & 検索ワード システム.Run ("chrome.exe -url " & 対象URL) End Sub