[Ahmed_Mansoor]

أهلا أخي الكريم ، جزاك الله كل خير ، شكرا جزيلا لك على كلماتك الطيبه ، الله يهدينا واياك ويوفقك دنيا وآخره ، بالنسبه بصراحه يبدو أنني كنت مستعجلا عندما عدلته الكود سيقوم بالمهمه ولكن سيكون أدائه أطول ، لذلك عدلته الان بالتعديل الذي يجب أن يكون الاول :

PHP كود :

Dim Counter As Integer
Dim FindString(5), ReplaceText As String

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

ReplaceText = "*"

For Counter = 0 To 5
        Text1.Text = Replace$(Text1.Text, FindString(Counter),ReplaceText)
Next