Private Sub AllesAnz_Button_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles AllesAnz_Button.Click
        'löscht alle Einträge vor dem erneuten füllen'
        Anzeigeliste.Items.Clear()
 
        Dim sAbschnitte As String = Space$(32767)
        sAbschnitte = INIFile.WertLesen(vbNullString, "", "", _
          sAbschnitte.Length)
        If sAbschnitte <> "" Then
            Dim PCNamen = Split(sAbschnitte, vbNullChar)
            For I = 0 To UBound(PCNamen)
                If PCNamen(I) <> "" Then
                    'füllt die ListView mit allen Daten aus der Funktion getPC'
                    Anzeigeliste.Items.Add(New ListViewItem(getPC(PCNamen(I))))
                End If
            Next
        End If
    End Sub

Lebe lange und in Frieden