To determine whether a String array contains a given item it seems that you can’t avoid writing a loop. However, you can do it with just one line of code, using the new VB6 Join function:

' ARR is an array of string, SEARCH is the value to be searchedFound = InStr(1, vbNullChar & Join(arr, vbNullChar) & vbNullChar, _    vbNullChar & search & vbNullChar) > 0

Note that the above code assumes that no item in the array contains the Chr$(0) character.

There are several variations of the theme. For example you can check whether any item in the String array begins with the searched substring using this code:

Found = InStr(1, vbNullChar & Join(arr, vbNullChar) , vbNullChar & search) > 0

And you can check whether the searched substring appears anywhere in any element of the String array:

Found = InStr(1, Join(arr, vbNullChar) , search) > 0