[VB_Coder]

السلام عليكم

- فعلا فيه مشكلة . هذا الكود بعد التعديل :

كود :

Dim Abtat(4) As String
Dim Abjd(4) As String
Dim I As Integer
Dim N As Integer
Dim Is_Found As Boolean

Abtat(0) = "ت"
Abtat(1) = "ث"
Abtat(2) = "ج"
Abtat(3) = "ح"
Abtat(4) = "خ"

Abjd(0) = "ج"
Abjd(1) = "د"
Abjd(2) = "ه"
Abjd(3) = "و"
Abjd(4) = "ز"

Text2.Text = ""
Is_Found = False

For I = 1 To Len(Trim$(Text1.Text))
    If Trim$(Mid$(Trim$(Text1.Text), I, 1)) <> "" Then
        For N = LBound(Abtat) To UBound(Abtat)
            If Abtat(N) = Mid$(Trim$(Text1.Text), I, 1) Then
               Text2.Text = Text2.Text & Abjd(N)
               Is_Found = True
               Exit For
            End If
        Next
        If Is_Found = False Then Text2.Text = Text2.Text & Trim$(Mid$(Trim$(Text1.Text), I, 1))
     Else
          Text2.Text = Text2.Text & " "
     End If
Next

- تحياتي .