Is it possible to remove a single entry in the recent contacts with this code?

So we have a user who was renamed. The rename process was ugly, and now there are remnants of her old user name floating around in users Recent contacts. I have found code that can be used to remove all the contacts from the recent contacts list. I’m wondering if it is possible to tweak this code to just remove that one entry in the Recent contacts list.

The code is as follows (From Dan P King):

dim nab as notesdatabase

set nab = new notesdatabase(“”, “names.nsf”)

dim view as notesview

set view = nab.getview(“(Recent Contacts)”)

dim vecol as notesviewentrycollection

set vecol = view.allentries

call vecol.removeall(true)

I don’t know a whole lot about programming, but see there is a command called vecol.deleteentry

Would I use this command to removed one entry in the recent contacts list?

Thank you in advance.

Subject: In 852 CD3 renamed entries will be auto-corrected. In 8.5 there is a delete action for the user available from the recent contacts view