[Aly El-Haddad]

السلام عليكم

انظر الى هذا الكود:

كود :

Dim arr As String() = {"ahmed", "sajad", "yasir", "hamad", "samad"}
        If Array.IndexOf(arr, TextBox1.Text) <> -1 Then
            MsgBox("Found!")
        Else
            MsgBox("Not Found!")
        End If

بالتوفيق ان شاءالله

(عفواً على الأقتباس أخي sajad)