Dim aa As String ="a,b,c,d,e,f,g"
Dim bb As String="a"
If array.IndexOf(aa.split(","), bb) > -1 Then msgbox("存在")End If