小弟手上有1000個遞增的文字檔(都是數字)是以空格間隔

有什麼程式可以改成以行間格嗎?

Do Until EOF(filenum)

str1 = LineInput(filenum)
ListBox1.Items.Add(str1)
Loop

因為我用VB2005,用上面的CODE只能逐行讀取...