[3booody]

بالنسبة للمصفوفة اسهل طريقة هكذا

كود :

For i As Integer = 0 To UBound(str)
            If str(i).ToLower.Contains(TextBox1.Text.ToLower) = True Then
                MsgBox(str(i))
            End If
        Next