Make TXT File

Make TXT File


Dim fIO As String

Private Sub Command1_Click()
fIO = Empty
CommonDialog1.ShowSave
fIO = CommonDialog1.FileName
If Not (fIO = Empty) Then
Open fIO For Append As #1
For i = 0 To 4
Print #1, Text1(i).Text
Print #1, ""
Text1(i).Text = Empty
Next i
Close #1
End If
End Sub

Private Sub Command2_Click()

End Sub