Подредактировать скрипт VBS, добавив одно условие

Option Explicit
'===========
'если нужно остановить, то "убить" процесс wscript вдиспетчере задач
'===========
Const count = 3 'всего путей к файлам (если 0 то путь = 1,если 1 то путь = 2,....) 
Dim wordsPath
Dim editPath
ReDim ArrayWordsPath(count)
ReDim ArrayEditPath(count)
'----------------------------------------------------------------
'Путь к файлу фраз list.txt (каждая новая фраза начинается с новой строки) 
 ArrayWordsPath(0) = "D:\Script\list.txt" 
 ArrayWordsPath(1) = "D:\Script\list.txt" 
 ArrayWordsPath(2) = "D:\Script\list.txt"
 ArrayWordsPath(3) = "D:\Script\list.txt" 
'----------------------------------------------------------------
'Путь к файлу в котором каждые X сек меняется фраза
 ArrayEditPath(0) = "D:\1\text.txt"
 ArrayEditPath(1) = "D:\2\text.txt"
 ArrayEditPath(2) = "D:\3\text.txt"
 ArrayEditPath(3) = "D:\4\text.txt"
'----------------------------------------------------------------
'Время изменения в миллисекундах
Const sleepMSec = 3000
Const ForReading = 1
Dim fso, pTable, FileSize, Index
'---------------------------------
For Index = 0 To count
    CreateFileTxt(ArrayEditPath(Index))
    WScript.Sleep 400
Next    
'---------------------------------
wordsPath = ArrayWordsPath(count)
editPath = ArrayEditPath(count) 
Initialize
Do
    WScript.Sleep sleepMSec
    '----------------------
    For Index = 0 To count
    '---------- 
        wordsPath = ArrayWordsPath(Index)
        editPath = ArrayEditPath(Index) 
    '----------     
        If fso.GetFile(wordsPath).Size <> FileSize Then
            pTable.Close
            Initialize
        End If
        ChangeText
    '----------
        WScript.Sleep 400       
    Next 
    '---------------------- 
Loop
 
Private Sub ChangeText()
    Dim pStream
    Set pStream = fso.CreateTextFile(editPath, True)
    pStream.Write pTable("FText").Value
    pStream.Close
    pTable.MoveNext
    If pTable.EOF Then pTable.MoveFirst
End Sub
 
Private Sub Initialize()
    Const adInteger = 3
    Const adVarWChar = 202
    Const adUseClient = 3
 
    Dim subStrs, i, curStr, pStream
    Set fso = CreateObject("Scripting.FileSystemObject")
    FileSize = fso.GetFile(wordsPath).Size
    Set pTable = CreateObject("ADODB.Recordset")
    pTable.Fields.Append "FText", adVarWChar, 255
    pTable.CursorLocation = adUseClient
    pTable.Open
    Set pStream = fso.OpenTextFile(wordsPath, ForReading)
    subStrs = Split(pStream.ReadAll,vbCrLf)
    pStream.Close
    For i = LBound(subStrs) To UBound(subStrs)
        curStr = Trim(subStrs(i))
        If curStr <> "" Then pTable.AddNew Array("FText"), Array(curStr)
    Next
    Set pStream = fso.OpenTextFile(editPath, ForReading)
    curStr = Trim(pStream.ReadLine)
    pStream.Close
    
    If Len(curStr) > 0 Then
        pTable.MoveFirst
        pTable.Find "FText='" & curStr & "'"
    End If
    If Not pTable.EOF Then pTable.MoveNext
    If pTable.EOF Then pTable.MoveFirst
End Sub
 
Sub InsNewText(sPath)
    Dim fso, f1
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f1 = fso.CreateTextFile(sPath, True)
End Sub
 
Sub CreateFileTxt(sPath)
  Dim fso, tf
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set tf = fso.CreateTextFile(sPath, True)
  ' Записать строку с переводом на новую строку.
  tf.Write("_")
  tf.Close
End Sub

For Index = 0 To count
    CreateFileTxt(ArrayEditPath(Index))
    WScript.Sleep 400
Next

Option Explicit
Dim iDic, oDic, cDic, RExp, oFSO, oCvt, i, iFile, oFile, Max, Test, Str, uStr
 
'= Вводные: =====================================================
Const Sec = 5 ' период выполнения в секундах
Const Check = 0 ' не/проверять строку по наличию '<' спереди: 0/1
'----------------------------------------------------------------
Set iDic = CreateObject("Scripting.Dictionary")
Set oDic = CreateObject("Scripting.Dictionary")
Set cDic = CreateObject("Scripting.Dictionary")
'--------------------------------
'Пути к словарям:
iDic.Add 1, "D:\Script\list1.txt"
iDic.Add 2, "D:\Script\list2.txt"
iDic.Add 3, "D:\Script\list3.txt"
iDic.Add 4, "D:\Script\list4.txt"
'--------------------------------
'Пути к редактируемым файлам:
oDic.Add 1, "D:\Test\1\text.txt"
oDic.Add 2, "D:\Test\2\text.txt"
oDic.Add 3, "D:\Test\3\text.txt"
oDic.Add 4, "D:\Test\4\text.txt"
'================================================================
 
If iDic.Count <> oDic.Count Then _
MsgBox "Число словарей должно соответствовать числу редактируемых файлов!", 4144 : WSH.Quit
Set RExp = New RegExp : RExp.Global = True : RExp.Pattern = "^(\r?\n)+|\r?\n(?=\r?\n|$)"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oCvt = CreateObject("OlePrn.OleCvt")
For i = 1 To iDic.Count
    iDic.Item(i) = Split(RExp.Replace(oFSO.OpenTextFile(iDic.Item(i)).ReadAll, ""), vbNewLine)
    cDic.Add i, 0
Next
RExp.Pattern = "[^\s!-‚-›\u0080-\u00FF\u0400-\u04FF\u20A0-\u20CF\u2100-\u214F\w‘’–—]"
 
Do 
    For i = 1 To oDic.Count
        oFile = oDic(i) : Max = UBound(iDic(i)) : Test = 1
        If Check Then
            If oFSO.GetFile(oFile).Size = 0 Then Test = 0 Else _
            If oFSO.OpenTextFile(oFile).Read(1) <> "<" Then Test = 0
        End If
        If Test Then
            Str = iDic(i)(cDic(i)) : uStr = oCvt.ToUnicode(Str, 65001)
            If Not RExp.Test(uStr) Then Str = uStr
            With oFSO.OpenTextFile(oFile, 2) .Write Str :.Close :End With
        End If
        If cDic(i) = Max Then cDic(i) = 0 Else cDic(i) = cDic(i) + 1
    Next
    WSH.Sleep Sec*1000
Loop