Пишу генератор

[Salieri]

Подскажите пожалуйста, как сделать так чтобы при нажатии на кнопку
данные сохранялись в файл( P.S генератор паролей uin;pass)


Заранее спасибо!

 

[Winux]

Вот вам сорец простого негодного генератора:

Private Sub Command1_Click()

If Text1.Text = "" Or Text2.Text = "" Then Exit Sub
j = Text1.Text
ReDim arr(Text2.Text - Text1.Text)
    
  For i = 0 To Text2.Text - j
        arr(i) = j
        j = j + 1
     Next i
    file = Join(arr, vbCrLf)
    MsgBox "Генерация завершена, сохраните результат", 64, "Сохраните результат"
       CD.ShowOpen
               If CD.FileName = "" Then Exit Sub
               Open CD.FileName For Output As #88
               Print #88, file
               MsgBox "Всё сохранено!", 64, "Всё оК!"
         Close #88

    End Sub


Private Sub Text1_Change()
    Text1.Text = LTrim(str(Val(Text1.Text)))
End Sub

Думаю разберенься где какое поле.