Private Sub cmdBeitragNeu_Click()
 
Open App.PATH & "\" & Text4.Text & ".txt" For Append As #1
  Print #1, Text2.Text
Close #1
 
End Sub

Private Sub lstList_DblClick()
Dim temp As String
Dim str As String
Dim PATH As String
 
If Right(App.PATH, 1) <> "\" Then
      PATH = App.PATH & "\"
Else
      PATH = App.PATH
End If
 
Open PATH & lstList.Text & ".txt" For Input As 1
    Do Until EOF(1)
Line Input #1, temp
         str = str & temp
    Loop
 
Close #1
Text1.Text = str
End Sub