[Ahmed_Mansoor]

وعليك السلام ورحمة الله وبركاته , أهلا أخي الكريم , هذا تعديل الكود :

PHP كود :

Dim StartPos, Counter1 As Integer, Counter2 As Integer
Dim FindString(5), ReplaceText As String

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

ReplaceText = "*"

For Counter1 = 1 To Len(Text1.Text)
    
    For Counter2 = 0 To 5
    
        StartPos = InStr(Text1.Text, FindString(Counter2))
    
        If StartPos > 0 Then
           Text1.SelStart = StartPos - 1
           Text1.SelLength = Len(FindString(Counter2))
           Text1.SelText = "" + ReplaceText
        End If
    
    Next
    
Next