Dubbel Split

Har en funkttion med split som fungerar. Min fråga är hur jag gör bubbel split. alltså jämför från tv listor.

<%
Function InArray(Value, ArrayList)
Dim i
InArray = False
If IsArray(ArrayList) Then
For i = 0 to UBound(ArrayList)
If Value = ArrayList(i) Then
InArray = True
Exit Function
End If
Next
End If
End Function

namnkanal= "Smith"
NameStr2 = "Mr3. John2 Smith"
NameStr = "Mr. John Smith"

If not InArray(namnkanal, Split(My_String,";")) Then
	response.write "JA"<br>"
end if

byta ut fungerar ej
If InArray(Split(NameStr2," "), Split(NameStr," ")) Then
någon som har ett bra förslag?

skall den vara "bakåtkompatibel"?
Om ja, så får du kolla om Value är en array, loopar ut den + loopar ut ArrayList och om den träffar någon av dessa så retunera du true.

Varför koden inte fungera just nu är att den array inte har 1 värde utan ett flertal.