List Box Question

[JPRoy392]

I need to know if any occurance of a list box contains the string "Black". So far, I found out to find the first occurance, but if there are multiple items in a list box, I don't want to test each individual item in a list. There must be an easier way. My code so far:

 If Ink.List(0) = "Black" Then
            MsgBox "test succeed"
 End If

I don't want to:

 If Ink.List(0) = "Black" or Ink.List(1) = "Black" Then
            MsgBox "test succeed"
 End If

Thank you for any help.