Cacher is the code snippet organizer for pro developers

Function IsMember(tVal$, vArray As Variant) As Boolean
	
	Dim x&

	For x&=0 To UBound(vArray)
 		If (vArray(x&) Like tVal) Then
  			IsMember = True
  			Exit Function
 		End If
	Next

	IsMember = False

End Function