Public Sub ListViewDurchlaufen()
  Dim oItem         As ListItem
 
  With Me.ListView1
    ' ListView durchlaufen
    For Each oItem In .ListItems
      If oItem.SubItems(3) = "XYZ" Then
        ' in die ListBox schreiben
        List1.Add oItem.Text
      End If
    Next oItem
  End With
End Sub