Private Sub cmdVorlSpeichern_Click() 
Dim AppPath As String
Dim FileName As String
Dim F As Integer
AppPath = App.PATH
If Right(AppPath, 1) <> "\" Then AppPath = AppPath & "\"
FileName = List2.List(List2.Listindex)
F = FreeFile
Open AppPath & FileName & " (V)" & ".txt" For Output As #F
Print #F, Text1.Text
Print #F, Text2.Text
Print #F, Text3.Text
Print #F, Text4.Text
Print #F, Text5.Text
usw.
Close #F
EndSub

Private Sub List2_DblClick() 
Dim temp As String
Dim str As String
Dim PATH As String
Dim sLine As String
 
Open App.PATH & "\" & txtUnsichtbar.Text & ".txt" For Input As #1
 
  If Not EOF(1) Then Line Input #1, sLine: Text1.Text = sLine
  If Not EOF(1) Then Line Input #1, sLine: Text2.Text = sLine
  If Not EOF(1) Then Line Input #1, sLine: Text3.Text = sLine
  If Not EOF(1) Then Line Input #1, sLine: Text4.Text = sLine
  If Not EOF(1) Then Line Input #1, sLine: Text5.Text = sLine
Close #1
End Sub