With this function:
Just change the LV to the name of your listbox
Then, to se if the list box contains an item with the specified text simply make the call
LVContains("Some String")
Private Function LVContainsText(TXT As String) As Boolean
Dim result As Boolean = False
For Each I As ListViewItem In LV.Items
If I.Text = TXT Then
result = True
End If
Next
Return result
End Function