Private Sub cmdSave1_Click()
Dim fnr As Integer
Dim fnr1 As Integer
 
fnr = FreeFile
Open App.Path & "\Text1.txt" For Output As #fnr
Print #fnr, Text1.Text;
Close #fnr
 
fnr1 = FreeFile
Open App.Path & "\Text1a.txt" For Output As #fnr1
Print #fnr1, Text13.Text;
Close #fnr1