Как в ListView удалить строку, которая не содержит значение в SubItem?

For Each lvi As ListViewItem In ListViewZ.Items
    Dim found As Boolean = False

    For Each si As ListViewItem.ListViewSubItem In lvi.SubItems
        If si.Text = Variables.UserCity Then
            found = True
            Exit For
        End If
    Next

    If Not found Then
        lvi.Remove()
    End If
Next