Splitting a text field into an array

[KenCriss]

I need to read a line from a text file that is 1072197 characters long. I need to split it into an text array that consists of every 80 characters and then put it on a worksheet. I know I have done this before but can't find my code. Any ideas would be appreciated.

 

[Bill Rockenbach]

try

Option Explicit
Sub Split80()
    Dim Start As Long
    Dim i As Long
    Dim myString As String
    Const Length = 80
    myString =  'populate mystring with file data 
    Start = 1
    For i = 1 To Len(myString) / 80 + 1
        Cells(i, 1) = Mid(myString, Start, 80)
        Start = Start + 80
    Next i
End Sub

 

[KenCriss]

Thanks! That got me close enough that I could use it.