Help Please

Can't you do something like...

Code:

---

Sub CopyStringtoArray()
   
Dim TempFile As Integer
Dim TempString As String
Dim StringArray() As String
   
    TempFile = FreeFile
    Open App.Path & "\stringfile.txt" For Input Lock Write As #TempFile
   
    Do While Not EOF(TempFile)
            Line Input #TempFile, TempString
    Loop
    Close TempFile

    StringArray = Split(TempString,",")

End Sub

---

Since your file is about 416k that equals out to 416,000 characters. A variable length string is able to hold 2 billion characters. So you should be OK.

Someone correct me if my math is wrong.