Dim i As Variant
    With ListView1
        Dim newitem As ListItem
        For i = 1 To 200
            s = IniRead("test", (i))
            If FileExists(i) = True Then
                Set newitem = .ListItems.Add(, , s)
                newitem.SubItems(1) = "Vorhanden"
            Else
                newitem.SubItems(1) = "Nicht Vorhanden"
                MsgBox " Der Test wurde Erfolglos abgebrochen"
                Exit For
            End If
        Next i
    End With