Find a Words and delete them ?

HI
I make Text1 it contain this Words:

PHP Code:

---

IYAD OMAR Hassan Mustafa
ZYAD OMAR Hassan Mustafa
AHMED OMAR Hassan Mustafa
KHALED OMAR Hassan Mustafa 


---

i need code to find (Mustafa and Omar & IYAD) and delete them ????

vb Code:

Text1.Text = Replace(Text1.Text, "Mustafa", "", , , vbTextCompare)
    Text1.Text = Replace(Text1.Text, "Omar", "", , , vbTextCompare)
    Text1.Text = Replace(Text1.Text, "IYAD", "", , , vbTextCompare)

...:wave:

Code:

---

Dim S As String, RS As String

S = Text1.Text

RS = Replace(S, "Mustafa", vbNullString, , , vbTextCompare)
RS = Replace(RS, "Omar", vbNullString, , , vbTextCompare)
RS = Replace(RS, "IYAD", vbNullString, , , vbTextCompare)

'Removing any extra spaces (double spaces or more) that may be present after removing the sub strings
Do While InStr(RS, "  ")
RS = Replace(RS, "  ", " ")
Loop

'Removing any leading or trailing spaces that may be present after removing the sub strings
Text1.Text = Trim(RS)

---

If you only want to remove a specific casing of the word(s) just remove the , , , vbTextCompare

ThAnks You aLL:)

Quote:

---

Originally Posted by iyadd

ThAnks You aLL:)

---

We are happy to help :wave: