Как пополнить массив каждый файл, открытый с VBA

Question

В моем проекте у меня есть html файлов. Я открываю их и сканирую, чтобы найти подстроки. Я хочу, чтобы пополнить массив каждый раз html открывается. Я написал эти коды, но я застрял, когда я пополняю массив, и я не знаю, как это сделать. Я открываю html таких файлов

Debug.Print myTopFolderPath & "\" & objFile.Name

Workbooks.Open FileName:=myTopFolderPath & "\" & objFile.Name

'On Error Resume Next
Debug.Print "Opened"

Я хочу пополнить массив здесь. Мой массив называется sub.

If locationSUBTASK > 0 And (Right(Left(txt, 12), 8) = "SUBTASK " Or Right(Left(txt, 11), 8) = "SUBTASK ") Then
            ReDim Preserve arrSubTask(m): arrSubTask(m) = mySubTask
            ReDim Preserve subs(m)
            arrSubTasks = Split((Mid(txt, locationSUBTASK + 8, 21)), " ")
            mySubTask = mySubTask & ";" & arrSubTasks(0)
            arrSubTask(m) = mySubTask
            If arrSplitedDMC(1) = "A5" Or arrSplitedDMC(1) = "A0" Then
            subs(m) = arrSubTasks(0)
            m = m + 1
            'Debug.Print UBound(subs)
            End If

        End If

Например, во всех моих файлах html они содержат 47 подстрок. Я хочу получить только первый html файл, содержащий 28 подстрок.