Dim F As Integer
Dim sFile As String
 
sFile = List1.List(List1.ListIndex)
F = FreeFile
Open App.Path & "\" & sFile For Output As #F
Print #F, Text1.Text
Print #F, Text2.Text
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de