مشکل در حلقه for کمک ضروری

سلام : دوستان من یک برنامه نوشتم که با استفاده از کامند دیالوگ میخوام یک فایل متنی رو تو یک لیست باکس

باز کنه ولی نمیدونم چرا یک قسمتی از فایل متنی رو قرار میده تو لیست خودتون یک نگاه به کد بندازید ببینید میشه

کاری کرد که کل محتوا رو نشون بده در لیست باکس .

نکته : من اول فایل رو یه تکس باز کردم بعد اضافه میکنم به لیست حواستون باشه .

[HTML]Private Sub Command1_Click()
Mcd1.ShowOpen
If Mcd1.FileName <> "" Then
Open Mcd1.FileName For Input As #1
While EOF(1) = False
Line Input #1, s
Text1.Text = s + Text1.Text
Wend
Close #1
End If
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
List1.AddItem Text1.Text
End Sub

[/HTML]

دوستان نمیخواد زحمت بکشید ، خودم درست کردم . سورس رو در اختیارتون قرار میدم تا کسی خواست استفاده کنه .

[PHP]Private Sub Command1_Click()
Mcd1.ShowOpen
If Mcd1.FileName <> "" Then
Open Mcd1.FileName For Input As #1
While EOF(1) = False
num = num + 1
Line Input #1, s
Text1.Text = Text1.Text & s & vbNewLine
Wend
Close #1
End If
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
On Error Resume Next
For x = 0 To num - 1
List1.AddItem Split(Text1.Text, vbNewLine)(x)
Next
End Sub[/PHP]