VBSでリンク一覧を配列に保存する

一応要望の仕様通りにしましたが、
こんな内容でしょうか。

Option Explicit

'------------------------------
'  ランダムに１～10秒スリープ
'------------------------------
    WScript.Sleep (Rnd()*10 + 1)* 1000

    dim objIE
    Set objIE = CreateObject("InternetExplorer.Application")

'------------------------------
'   IE ではてなを表示
'------------------------------
    objIE.Navigate "http://www.hatena.ne.jp/"
    objIE.Visible = True
    waiteIE objIE

    Dim links, link, ar, linkArray
    Set links = objIE.Document.getElementsByTagName("A")

    For Each link in Links
        ar = ar & link.href & vbNewLine
    Next

'------------------------------
'   IE を終了
'------------------------------
    objIE.Quit
    Set objIE = Nothing

'------------------------------
'    内容を表示
'------------------------------
    WScript.Echo ar

'------------------------------
'   配列に保存
'------------------------------
    linkArray = Split( ar, vbNewLine )

'--------------------------------------------------
Sub waiteIE(objIE)
'--------------------------------------------------
    
    Do While objIE.Busy = True Or objIE.readystate <> 4
        WScript.Sleep 100
    Loop
    
    WScript.Sleep 1000
End Sub