Error 14 Out of String Space *RESOLVED*

[MichaelC2468]

I am using the split function to parse data out of text files. I am now having a problem with one of the text files that I am reading. The problem is that the file is 114 megs, and this is where the "out of string space" error is coming from. Below is a sample of the code that I am using. Once the lines() array is populated I can iterate through the array and parse the data I need. Is there another way to read this information into an array like I am doing with the split function using the lines() array? If not does any one have any other suggestions?

As always, thanks in advance.

Michael


lines() = Split(ReadFile(TextFile), vbCrLf)


Public Function ReadFile(filename As String) As String

Dim isopen As Boolean

'Open file and assign a filenumber
fnum = FreeFile()
Open filename For Binary As #fnum
isopen = True
ReadFile = Input(LOF(fnum), fnum)

End Function