راهنمائی در مورد نوشتن برنامه ای که 10 فایل ترتیبی به نام های a.txt تا a10.txt ایجاد نماید.

[Beginner Programmer]

با سلام خدمت تمامی دوستان
میشه برای نوشتن این برنامه یه کمکی به من بکنید؟
مسئله:برای دکمه 10File قطعه کدی بنویسید که 10 فایل ترتیبی به نام های a.txt تا a10.txt ایجاد نماید.
برنامه ای که خودم نوشتم اینه:
Dim a(1 To 10) As String

command1_click()

For i = 1 To 10
Open "d:\ " & "a(i).txt" For Append As #1
Write #1, text1
Close #1
Next i

ولی با این کد یک فایل ایجاد میشه و هر چی که تو text1 نوشته باشم 10 بار توش تکرار میشه!
پیشاپیش از همه دوستان نهایت تشکر رو دارم

[mmssoft]

به این شکل :
Dim i As Integer

For i = 1 To 10

If i = 1 Then

Open "C:\a.txt" For Output As #1
Print #1, Text1.Text
Close #1

Else

Open "C:\a" & Trim(Str(i)) & ".txt" For Output As #1
Print #1, Text1.Text
Close #1

End If

Next