看论坛的帮助网页
如果是1,2,3,4,5,6的话
精确判断可以进行逐个判断,比InStr精确
比如判断某个ID是否在这串字符串里出现过
Function IsHaveID(IDStr,ID)
Dim i,IsHave,tAry()
tAry=Split(IDStr,",")
IsHave=False
For i=0 To UBound(tAry)
IF tAry(i)=CStr(ID) Then
IsHave=True
End IF
Next
IsHaveID=IsHave
End Function