VBScriptでWebページの"hogehoge"という単語を探したいと考えています。もし、あれば、”あったよ！”とMsgBoxで表示します。

下記のコードで合っていますか？気になる箇所があれば教えてください。

ｰｰｰ＜Start of code＞ｰｰｰｰ

Option Explicit

On Error Resume Next
Dim temp
Dim arraytemp
Dim num
Dim i

temp = document.body.innerHTML

temp = Replace(temp,CStr(vbCrLf)," ")
temp = Replace(temp,CStr(vbLf)," ")

'でvbCrLfとvbLfを半角スペースに置換する。

Do
  If InStr(1,temp," ") > 0 Then
     temp = Replace(temp,"  "," ")
  Else
     Exit Do
  End If
Loop

'で半角スペース2個を半角スペースに1個に置換する。

arraytemp = Split(temp," ")
num = UBound(arraytemp)

For i = 0 to (num - 1)
　If arraytemp(i) = "hogehoge" Then

         MsgBox "あったよ！"
　Else
　End If
Next

ｰｰｰ＜End of code＞ｰｰｰｰ