複数サイトをまとめて自動で表示する方法

下記内容をメモ帳にペーストして名前をweb.vbsで保存する。
web.vbsをダブルクリックすると複数サイトが表示されます。

Option Explicit

Dim owsh
Dim ret
Dim strUrl(10)
Dim intCnt

Set owsh = CreateObject("WScript.Shell")

strUrl(0) = "https://www.ameba.jp/home"
strUrl(1) = "https://www.facebook.com/"
strUrl(2) = "https://twitter.com/home"
strUrl(3) = ""
strUrl(4) = ""
strUrl(5) = ""
strUrl(6) = ""
strUrl(7) = ""
strUrl(8) = ""
strUrl(9) = ""
strUrl(10) = ""

For intCnt = 0 To UBound(strUrl) Step 1
   If strUrl(intCnt) <> "" Then
      ret = owsh.Run("chrome"+" " + strUrl(intCnt), 1, False)
   End If
Next

Set owsh = Nothing