[kiki]

اتذكر كوني ذكرت فقط وضع المسافة بعد فقط وليس قبل
والمسافة يتم وضعها فى Function وكذلك فى الحدث لـ BtnTranslate_Click
وتكون المسافة بعد جملة التعريف فقط ليس اكثر

انظر اخى الفاضل Doctor GME
الامر بكل بساطة وسهولة جداً وبدون اى تعقيد
تعال عند كود الـ Function واجعله بهذا الشكل

كود :

   Function GetExactSubtitles(ByVal content As String) As String

       Using cnn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=MyDatabase.accdb")
           cnn.Open()
           content = content.Replace(vbNewLine, " * ")
           Try
               Dim sql As String = "SELECT * FROM [Translations] ORDER BY Len(English) DESC"
               Using adp As New OleDbDataAdapter(sql, cnn)
                   Dim tbl As New DataTable
                   If adp.Fill(tbl) > 0 Then
                       For Each row As DataRow In tbl.Rows
                           content = content.Replace(row.Item("English") & Space(1), row.Item("Arabic") & Space(1))
                       Next
                   End If
               End Using
               content = content.Replace(" * ", vbNewLine)
               Return content
           Catch ex As Exception
               MsgBox(ex.Message)
               Return Nothing
           End Try
           cnn.Close()
       End Using

   End Function

انا لم اذكر ماذا قمت به وما التغيير البسيط أو باصح الاضافة البسيطة التى تمت فى الكود بالاعلى
حتى اجد منك ردك التالى بتوضيح بما تم فى الكود من التعديل وما فكرتها حتى اكون على يقين ان الاستخدام للكود ليس كا نسخ ولصق فقط
وكذلك لتفيد الزائر للموضوع هنا بما هو التعديل ليتم عمل نجاح الكود فى الترجمة

الان كل ما عليك فعله هو ان تجعل كود حدث الزر بهذا الشكل

كود :

       ArabicTextbox.Text = GetExactSubtitles(EnglishTextbox.Text & Space(1))

وهو نفس الكود الذى قمت بتوضيحه فى ردي السابق
الان يمكنك الاختبار تعدد الكلمات فى السطر الواحد وايضاً تعدد الاسطر والكلمات