How would I prevent a Duplicate ListBox entry?

So if Apple is entered the user can not repeat and enter Apple again

It seems I should loop through this but how exactly?

vbMarkO