[3booody]

كود :

If TextBox1.Text.ToLower().Contains(TextBox2.Text.ToLower()) Then
            TextBox1.SelectionStart = TextBox1.Text.ToLower().IndexOf(TextBox2.Text.ToLower())
            MsgBox(Mid(TextBox1.Text, TextBox1.SelectionStart + 1, TextBox2.Text.Length))
        End If