Как создать кучу файлов через цикл? - VB

Формулировка задачи:

Итак: задача - создать множество файлов (можно пустых) с порядколвыми номерами от 1 до n в заданой через DriveListBox папке. Я так думаю тут единсвенный вариант использовать цикл For...Next. Однако, пока так и не понял как можно составить цикл для создания множества файлов. Подскажите?

Решение задачи: «Как создать кучу файлов через цикл?»

textual
                            Листинг программы 
                        

                            Option Explicit
Private Sub Комманда1_Click()
Dim J
Dim PATH
PATH = App.PATH 'здесь назначешь свой путь
For J = 1 To 500
Open PATH & "\" & J & ".txt" For Output As 1
Close #1
Next J
End Sub
                        