Before output to textout.txt recreate array with vbCrLf as delimiter
strAll = Split(Join(strAll, vbNullString), vbCrLf)
And transfer to a listbox with sorted = true
Then for output.txt, simply iterate through sorted listbox and Print #intFF each listbox item.Code:For lngIdxAll = 0 To Ubound(strAll) List1.AddItem strAll(lngIdxAll) Next




Reply With Quote