[alma2]

كود :

Private SecCode() As String = {
        "5289EAB6EC",
        "1289EAB6EC",
        "2289EAB6EC",
        "4289EAB6EC",
        "6289EAB6EC",
        "7289EAB6EC"
    }

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim v As String = Me.TextBox1.Text.TrimStart.Substring(0, 10)
        If SecCode.Contains(v) Then
            MsgBox("موجود")
        Else
            MsgBox("لا")
        End If
    End Sub