I found my problem. I am assigning text to a string variable. It seems that the string is not able to hold all the text. Is there a larger variable that can hold text the way I want?
code except:
Dim temp As String
Dim section(150) As String
Dim i, j, newfile As Integer
newfile = FreeFile
Open "c:\temp\999edcs.txt" For Input As newfile
While Not EOF(newfile)
Line Input #newfile, temp
If InStr(temp, ">") And InStr(temp, "<") Then
List1.AddItem (section(i))
i = i + 1
Else:
section(i) = section(i) & temp & vbCrLf
End If
Wend
For i = 0 To List1.ListCount - 1
List1.Selected(i) = True
Next i
Close newfile
Text1.Text = "edcs9999.txt"

------------------
I am so skeptacle, I can hardly believe it!