For x = 0 To lstStatus.Items.Count - 1
If lstStatus.Items(x) Like vpSearchItem1 & "*" Then
lstStatus.Text = lstStatus.Items(x)
Exit For
End If
Next
If lstStatus.Items(x) Like vpSearchItem1 & "*" Then
lstStatus.Text = lstStatus.Items(x)
Exit For
End If
Next