Help Please

[steve65]

Can't you do something like...

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.