[silverlight]

سؤالك هكذا أخذ شكل مختلف قليلا لكن يمكنك استخدام الفكرة التالية

كود :

  Private Function GetInitialValues() As Object
       Return New String(6) {"5289EAB6EC", "1289EAB6EC", "2289EAB6EC", "3289EAB6EC", "4289EAB6EC", "6289EAB6EC", "7289EAB6EC"}
   End Function

    Dim isExist As Boolean = False
       Dim strings As String() = TryCast(GetInitialValues(), String())
       Dim s As String = "???1289EAB6EC HTTP"
       For i = 0 To strings.Length - 1
           Dim valueTosearch As String = strings(i)
           If s.Contains(valueTosearch) Then
               isExist = True
               Exit For

           End If
       Next

       If isExist Then
           MsgBox("موجود")
       Else
           MsgBox("لا")
       End If