Sub DUE()
Dim strBuffer As String
Dim strContents() As String
Dim I As Long
ReDim strContents(0)
Erase strContents()
Close #1
Open "C:\TEST\28-06-2013.TXT" For Input As #1
strBuffer = Input(LOF(1), 1)
Close #1
strContents = Split(strBuffer, vbCrLf)
For I = LBound(strContents) To UBound(strContents)
'Debug.Print strContents(I)
Next I
End Sub
Problem out of Memory!!!!
When buffering the txt file. Is approx 256 mb 1.500.xxx lines. Each line have a fixed lenght 132.