Private Sub lstList_DblClick()
Dim FN As Integer
Dim strPath As String
Dim strFileName As String
Dim sLine As String
 
On Error GoTo ErrHandler
 
  With lstList
    If .Listindex > -1 Then
      txtBearbeiten.Text = .List(.Listindex)
      .Enabled = False
    End If
  End With
 
strPath = App.Path
If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
strFileName = strPath & lstList.List(lstList.Listindex) & ".txt"
FN = FreeFile()
 
Open strFileName For Input As #FN
  If Not EOF(1) Then Line Input #1, sLine: txtBT.Text = sLine
  If Not EOF(1) Then Line Input #1, sLine: txtStunden.Text = sLine
  Close #1
 
Exit Sub
ErrHandler:
If Err.Number = 53 Then
    MsgBox "Das Projekt muss vor dem Bearbeiten gespeichert werden!" _
     & vbCrLf & vbCrLf & "Klicken Sie" & vbTab & ">Daten sichern<" _
     & vbCrLf & "markieren Sie den Eintrag und Klicken anschließend" _
     & vbCrLf & vbTab & vbTab & ">Projekt sichern<.", vbInformation, "Hinweis"
End If
 
End Sub