This worked for me, a simple loop to check the sub item with the entry being added. This code removed the matched item in the list view


For LoopCounter = 1 To ListCount
lngVariable1 = Val(lstListView.ListItems.Item_(LoopCounter).SubItems(1))
If lngVariable1 = lngVariable2 Then
'if there is a match remove the entry in the list box
lstListView.ListItems.Remove (LoopCounter)
ListCount = ListCount - 1
Exit For
End If
Next LoopCounter