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, Text1[color=red]3[/color].Text;
Close #fnr1

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...