Merhaba arkadaşlar, visual basicte

Private Sub Command1_Click()
On Error Resume Next
Dim dosya, Oku, mail
CommonDialog1.Filter = "Metin Dosyaları | *.txt"
CommonDialog1.ShowSave
dosya = CommonDialog1.FileName

Open dosya For Append As #1
 
For I = 0 To List1.ListCount - 1
        Print #1, List1.List(I)
Next
 
Close #1


End Sub

Şu şekilde listeyi kaydetme butonu yaptım. Fakat istediğim şey şu, diyelimki 2000 kişilik bir listemiz oluştu. Listeyi kaydete tıkladığım zaman bana bir seçenek sunacak

Listeler Kaça Bölünsün? gibi..
Misal içersine 250 yazıcam kaydet dediğimde o toplamdaki 2000 kişinin ilk 250 kişisi dosyaismi1.txt devamındaki ikinci 250 kişi dosyaismi2.txt devamındaki 250 kişi dosyaismi3.txt diye bu şekilde kaydedilecek.. Bunu nasıl yapabilirim?