Dim F As Integer
Dim sFile As String
 
F = FreeFile
 
sFile = App.Path & "\DateiDat.dat"
 
Open sFile For Output As #F
 
Print #F, Text1.Text
Print #F, Text2.Text
Print #F, Text3.Text
Print #F, Text4.Text
Print #F, Text5.Text
Print #F, Text6.Text
Close #F