如何判断一个数组已在自定义序列中？

Dim  Arr
Arr = Split("成都,绵阳,南充,广元", ",")
如何判断Arr已在自定义序列中，请高手不吝赐教，谢谢！

Sub Macro1()
ARR = Split("成都,绵阳,南充,广元", ",")
For I = 1 To Application.CustomListCount
  If InStr(Join(Application.GetCustomListContents(I)), Join(ARR)) Then
    MsgBox "存在序列中"
    Exit For
  End If
Next
End Sub

这么快就有答复，感谢热心人，经测试代码OK, 非常感谢！