Запись в файле - VB

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

Дано имя файла и целое число N (0 < N < 27) . Создать текстовый файл с указанным именем и записать в него N строк: первая строка должна содержать строчную (то есть маленькую) латинскую букву «а», вторая – буквы «ab», третья – буквы «abc» и т.д. Последняя строка должна содержать N начальных строчных латинских букв в алфавитном порядке.

Решение задачи: «Запись в файле»

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

                            Option Explicit
Dim N As Integer
Dim i As Integer, j As Integer
Dim S As String
 
Private Sub cmdD_Click()
   Open LTrim(Str(N)) & ".txt" For Output As #1
   For i=1 To N
      S=""
      For j=1 To i
         S=S+Chr(96+j)
      Next j
      Print #1, S
   Next i
   Close #1
End Sub
                        