VBscriptでFor ループを回した時のエラー原因を教えてください。 

   arrayTemp = Split(temp," ")

でarrayTempにtempの内容を半角スペースで区切って一次元配列を挿入できたことは確認しました。

次に
---<Code Start>-----
   fCapacity = 0.0

   For i = 0 to arrayTemp.Length - 1
    If arrayTemp(i) = "BL:" Then
      fCapacity = fCapacity + CDbl(arrayTemp(i - 1))/1000000000
    Endif
   Next

MsgBox "XXXXは" & vbCrLf & (CStr(fCapacity)) & " XXX"
---<Code End>-----
上記のコードを追加したところ、添付画像のエラーが出ました。
各種変数は定義済みです。何がまずいのでしょうか？