Какой алгоритм поиска по большим xml файлам лучше использовать?

Public Function f1(x As String)
If InStr(1, x, "<RegionId>") = 1 Then
f1 = Mid(x, 11, Len(x) - 21)
End If
End Function

    'выбираем папку с файлами-источниками информации
    With Application.FileDialog(msoFileDialogFolderPicker)
        .ButtonName = "OK"
        .Title = "Выберите папку, содержащую файлы"
        If .Show = 0 Then
            Exit Sub
        End If
        Путь = .SelectedItems(1)
    End With
    
    File = Dir(PathName:=Путь + "\*.xml")
    Set objExcel = New Excel.Application
    Set WB = objExcel.Workbooks.Open(Путь + "\" + File)

..
    Dim File, Path, FileContent, region As String
    Dim objFileSys As Object
    Dim i, j As Integer
   
...
    File = Dir(PathName:=Path + "\*.xml")
    
    Set objFileSys = CreateObject("Scripting.FileSystemObject")
    
    Do Until File = "" 'пока не закончатся файлы
        FileContent = objFileSys.OpenTextFile(Path + "\" + File).ReadAll
...

Public Sub ReadXml1(ByVal sPath As String)
    Dim oXMLDoc As MSXML2.DOMDocument
    Dim objNodesFile As MSXML2.IXMLDOMNodeList
 
    Set oXMLDoc = New MSXML2.DOMDocument
    oXMLDoc.async = False
    oXMLDoc.Load sPath
 
    'если XML не прочитался
    If oXMLDoc.parseError.ErrorCode <> 0 Then
        With Worksheets(A_Const.SH_RAPORT).Cells(LasRow, 1)
            .Value = "Ошибка: " & oXMLDoc.parseError.srcText & " в линии: " & oXMLDoc.parseError.Line
        End With
    End If
    
    Set objNodesFile = oXMLDoc.SelectNodes("искомое")
    sFileName = objNodesFile.Item(0).Text
    
    Set oXMLDoc = Nothing
    Set objNodesFile = Nothing
 
End Sub