Чем открыть xml-файл объемом 3.2 Гб (и преобразовать данные в таблицу)?

Sub mme190213F()
Dim fs, a, retstring, S1, ss, s2, kdoc, spath
Set fs = CreateObject("Scripting.FileSystemObject")
''Set a = fs.OpenTextFile("c:\RABC\m002.xml", ForReading, False)
spath = Excel.ActiveWorkbook.Path & "\"
Set a = fs.OpenTextFile(spath & "m000.xml", ForReading, False)
Open "c:\rabc\ww.a2" For Output As #3
''d:\rab\!!_ALKOGOL\m000.xml
s2 = ""
Dim xm, x1, x1k, k2, k3
Dim ym, y1, y1k
k2 = 10000
k3 = 0
kdoc = 0
Open "c:\rabc\w3" & k2 & ".xml" For Output As #2
Do While a.AtEndOfStream <> True
    S1 = a.Read(3000000)
    ss = s2 & S1
    xm = Split(ss, "<")
    x1 = LBound(xm, 1) + 1
    x1k = UBound(xm, 1)
    Debug.Print k2, x1k
    k2 = k2 + 1
    k3 = k3 + 1
    If k3 > 3333 Then
    Exit Do
    End If
    Print #2, "</Detail_Collection>"
Print #2, "</table1>"
Print #2, "</Report>"
    Close #2
    If k2 > 10003 Then
    '''''''''''''''''''''''''''
    Reset
    Exit Sub
''    --------------------------------
    Open "c:\rabc\w3" & 10005 & ".xml" For Output As #2
    Else
    Open "c:\rabc\w3" & k2 & ".xml" For Output As #2
    End If
''Debug.Print k2
    Do While x1 < x1k
    S1 = "<" & xm(x1)
    'Debug.Print S1
    kdoc = kdoc + 1
    If InStr(S1, "1-14") > 0 Then
    Debug.Print S1
    
    Print #3, S1
    
    End If
    
    S1 = Replace(S1, "="" ", "=""")
    ym = Split(S1, """ ")
    y1 = LBound(ym, 1)
    y1k = UBound(ym, 1)
    Do While y1 < y1k
    
    
    Print #2, kdoc & "=" & y1 & "=" & ym(y1)
    ''Mid(S1, 1, 12); "=="
    y1 = y1 + 1
    Loop
    x1 = x1 + 1
    Loop
    s2 = "<" & xm(x1k)
    'Debug.Print "---------------"
    'Debug.Print s2
    'Debug.Print "--------------"
Loop
a.Close
Reset
End Sub