سوال مهم در مورد ListBox

[renjerk]

من توی یک لیست باکس یک لیست 10500 آیتمی لود کردم میخوام که این لیست رو به صورت دسته های 1000 آیتمی در فایل تکست دخیره کنم اگر میشه راهنمایی کنید به صورت کد VB راهنمایی کنید حیلی حیلی ممنون میشم.:بوس::قلب:

[parselearn]

Dim limit As Integer

Private Sub Command1_Click()
Dim f As Integer
Dim c As Integer
Dim t As Integer
c = 1
For i = 0 To List1.ListCount - 2 Step limit
f = FreeFile
t = i
Open App.Path & "\WebSite" & Cstr(c) & ".txt" For Output As #f
For j = IIf(List1.ListCount - 1 <= i, i, i + 1) To limit + t
If List1.List(j) = "" Then Exit For
Print #f, List1.List(j)
Next j
Close #f
c = c + 1
Next i
End Sub

Private Sub Form_Load()
For i = 0 To 10500
List1.AddItem "Site" & CStr(i)
Next i

limit = 1000
End Sub