主题：关于判断某个字符串有没有某些字符

我用这个，ro("序列号“）里面是以逗号分隔的一些序列号，我想判断包不包括一些序列号，我这样写查不出来啊，怎么回事？就是查询一个序列号一部分时候
此主题相关图片如下：1.png

txt.Value的值是什么？单个序列号，还是多个序列号。

这样的一些，逗号分隔的字符串
此主题相关图片如下：2.png

Dim str1 As String = "1,2,3,4,5"
Dim str2 As String = "5,4"
Dim ary1() As String = str1.Split(",")
Dim ary2() As String = str2.Split(",")
Dim flag As Boolean = True
For Each s As String In ary2
    If array.indexof(ary1, s) < 0 Then
        flag = False
        Exit For
    End If
Next
msgbox(flag)

这是啥东西？我是判断一个字符串里面有没有某个序列号一部分，例如我扫码的序列号是1166,2277,3388,4499，现在我要检查这个字符串里面有没有99，如果有就找出来这一样，显然应该有啊，但是现在我这样写代码结果是没有

Dim str1 As String = "1166,2277,3388,4499"
Dim str2 As String = "99,88"
Dim ary1() As String = str1.Split(",")
Dim ary2() As String = str2.Split(",")
For Each s2 As String In ary2
    For Each s1 As String In ary1
        If s1.Contains(s2) Then
            msgbox(s1 & " " & s2)
        End If
    Next
Next