Private Sub lstList_DblClick()
Dim sLine As String
 With lstList    
If .ListIndex > -1 Then      
txtBearbeiten.Text = .List(.ListIndex)      
.Enabled = False   
End If  
End 
 
With Open App.Path & "\output.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  
Close #1
End Sub