help improve code -urgent

[leinad31]

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

For lngIdxAll = 0 To Ubound(strAll)
   List1.AddItem strAll(lngIdxAll)
Next

Then for output.txt, simply iterate through sorted listbox and Print #intFF each listbox item.

[junlo]

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

For lngIdxAll = 0 To Ubound(strAll)
   List1.AddItem strAll(lngIdxAll)
Next

Then for output.txt, simply iterate through sorted listbox and Print #intFF each listbox item.

is it must use listbox? if i don't want using listbox, how to do it? thanks.