[Ahmed_Mansoor]

أهلا أخي الكريم , هذا تعديل الكود ليلبي الطلب الجديد :

PHP كود :

Dim Counter As Integer
Dim FindString1(5), FindString2(3), ReplaceText1, ReplaceText2 As String

FindString1(0) = "أَ"
FindString1(1) = "ب"
FindString1(2) = "ج"
FindString1(3) = "ك"
FindString1(4) = "ة"
FindString1(5) = "م"

ReplaceText1 = "*"

FindString2(0) = "ه"
FindString2(1) = "ن"
FindString2(2) = "س"
FindString2(3) = "ي"

ReplaceText2 = "#"

For Counter = 0 To 5
    Text1.Text = Replace$(Text1.Text, FindString1(Counter), ReplaceText1)
Next

For Counter = 0 To 3
    Text1.Text = Replace$(Text1.Text, FindString2(Counter), ReplaceText2)
Next