Dim F As Integer
Dim sLine As String
 
List1.Clear
F = FreeFile
Open "LinkDatei.txt" For Input As #F
While Not Eof(F)
  Line Input #F, sLine
  List1.AddItem sLine
Wend
Close #F

Private Sub cmdDelete_Click()
  Dim Index As Integer
 
  With List1
    Index = .ListIndex
    If Index >= 0 Then
      .RemoveItem Index
      If Index > .ListCount - 1 Then Index = .ListCount - 1
      .ListIndex = Index
    End If
  End With
End Sub

Dim F As Integer
Dim I As Integer
 
F = FreeFile
Open "LinkDatei.txt" For Output As #F
With List1
  For I = 0 To .ListCount - 1
    Print #F, .List(I)
  Next I
End With
Close #F