VBSステータスの末尾が不正？

Question

Option Explicit

'----------------------------------------------------------------------
' 定数
'----------------------------------------------------------------------
'ログの種類
Const ENTRY_NO = "entry_no:"
Const SENDER_MAIL_ADDRESS = "sender_email_address:"
Const RECEIVED_MAIL_SUBJECT = "received_mail_subject:"
Const RECEIVED_TIME = "received_time:"
Const REPLY_MAIL_ADDRESS = "reply_mail_address:"
Const REPLY_TIME = "reply_time:"
Const READ_STATUS = "read_status:"

'----------------------------------------------------------------------
' 変数数
'----------------------------------------------------------------------
'ファイル読み込み用の変数
Dim objFileSys
Dim strReadFilePath
Dim objReadStream
Dim strLine
DIm errorLogSts
Dim logCnstArr(7)
Dim logFileArr(7)
Dim logLinecnt
Dim cnt

'定数の値を配列に格納
logCnstArr(0) = ENTRY_NO
logCnstArr(1) = SENDER_MAIL_ADDRESS
logCnstArr(2) = RECEIVED_MAIL_SUBJECT
logCnstArr(3) = RECEIVED_TIME
logCnstArr(4) = REPLY_MAIL_ADDRESS
logCnstArr(5) = REPLY_TIME
logCnstArr(6) = READ_STATUS

'ループ変数の初期値
logLinecnt = 0
cnt = 0

'エラーステータスの初期値
errorLogSts = False

'対象のファイルのパスを指定
strReadFilePath  = "C:\Users\ユーザー\xxxxxx\sample.log"

'ファイルシステムを扱うオブジェクトを作成
Set objFileSys = CreateObject("Scripting.FileSystemObject")

'ファイルを読み取り専用で開き、TextStream オブジェクトを取得
Set objReadStream  = objFileSys.OpenTextFile(strReadFilePath, 1)

Do Until objReadStream.AtEndOfStream = True
    '行数のカウント
    cnt = cnt + 1
    'ループ変数のリセット
    If logLinecnt = 7 Then
        logLinecnt = 0
    End If

    '1 行読み込み
    strLine = objReadStream.ReadLine
    cnt = logLinecnt + 1
    logFileArr(cnt - 1) = strLine

    'ログの内容を確認
    If logLinecnt = 7 Then
        Dim i
        i = 0
        For i = 0 To 6 Step 1
          If InStr(logFileArr(i), logFileArr(i)) = 0 Then
              Msg Box logFileArr(i) & "のログが存在しません（" & cnt & "）行目" 'ここでエラーが発生します。
          End if
        Next
    End if
Loop

objReadStream.Close

Set objFileSys = Nothing

上記のコードで、ステートメントの末尾が不正です　エラーコード800A0401のエラーが発生します。
以下の質問が関連する内容かと思います。
テラテイル質問

ここでは、配列の要素指定に、ループ変数は使用できないと書いていあるのですが、
以下のコードも、配列の要素指定にループ変数を使用していますが、問題なく実行できました。
私のコードも問題点を教えて頂けますでしょうか。

Option Explicit
 
'サイズ5（最大インデックス4）の配列を宣言
Dim strNames(4)
Dim strMessage
Dim i
 
'配列の各要素に値を代入
strNames(0) = "太郎"
strNames(1) = "次郎"
strNames(2) = "三郎"
strNames(3) = "四朗"
strNames(4) = "五郎"
 
'LBound → 配列のもっとも小さいインデックスを返します。
'UBound → 配列のもっとも大きいインデックスを返します。
For i = LBound(strNames) To UBound(strNames)
  '配列の要素を１つずつ取り出します。
  strMessage = strMessage & (i + 1) & "人目の名前は" & strNames(i) & vbCrLf
Next
 
'「1人目の名前は太郎
' 2人目の名前は太郎
' 3人目の名前は太郎
' 4人目の名前は太郎
' 5人目の名前は太郎
' 」
' と表示されます。
' 最後に余計な改行を付けたくない場合は、最大インデックスの場合は改行コードを
' つけないようにする if 文を入れるなど工夫が必要です。
MsgBox strMessage 

Answer 1

そのエラーは、VBSの構文に合致しない書き方をしているときに発生するため、原因はさまざまです。

今回は、MsgBoxをMsg Boxと空白を入れてかいていることが原因です。