How do I avoid out of Memory Errors when parsing a big text file

[Photomofo]

I'm working on a program that parses a text file into a useful layout.

Here's the program.

https://drive.google.com/open?id=0B5_Yx6GF6MxqUWR0VmRlOXMxdWs

Here's the text file.

http://api.eia.gov/bulk/EBA.zip

<tbody>
</tbody>

Here's the section of code that hangs up. If I hard code in the location of File_x the code will run. If I used the GetOpenFilename function the code hangs up. Another problem is that I can only run the program once because it uses up all the memory. Is there a way to purge the EBA_File after I've broken it up into smaller strings?


'***************************************************************

'Get EBA File
'***************************************************************
MsgBox "GET EBA"
File_x = Application.GetOpenFilename()


'File_x = "C:\EBA.txt"


Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.GetFile(File_x)
Set objTS = objFile.OpenAsTextStream(ForReading, TristateFalse)
EBA_File = objTS.Read(objFile.Size)
'***************************************************************


'Chop up EBA_File into Smaller Overlapping Strings
'***************************************************************
k = Application.RoundUp(Len(EBA_File) / 50000000, 0)


For i = 1 To k


String_Index(i) = Mid(EBA_File, (i - 1) * 50000000 + 1, 51000000)


Next i
'***************************************************************

 

[shg]

Is there a way to purge the EBA_File after I've broken it up into smaller strings?

EBA_File = vbnullstring

 

[Photomofo]

Thank you... I incorporated your suggestion along with erasing all the other arrays that are used in the script. Unfortunately I still get the out of memory error when I try to run the program a second time.