[ابراهيم ايبو]

السلام عليكم اخي الكريم 
اخي انتبه الى مكان الفاصلة التي ستقطع النص
ومن ناحية حذف ال التعريف من كلمتي البداية( المعبري المليباري)
اليك هذا الكود حيث هذه الجملة (المعبري المليباري , عبد العزيز بن احمد)
تصبح هكذا ( عبد العزيز بن احمد معبري مليباري  )

كود :

' هذا الكود يحذف ال التعريف  من المعبري المليباري
       Dim txt() As String = TextBox1.Text.Split(",")
       TextBox1.Text = ""
       Dim frst() As String = txt(0).Trim.Split(" ")
       Dim Lakab As String = ""
       For Each str As String In frst
           Lakab &= str.Substring(2, str.Length - 2) & " "
       Next
       txt(0) = Lakab
       For Each t As String In txt.Reverse()
           TextBox1.Text &= t & " "
       Next

اما الكود التالي كما ذكرت لك التقطيع بالفاصلة

كود :

 '  هذا الكود لايحذف ال التعريف
       Dim txt() As String = TextBox1.Text.Split(",")
       TextBox1.Text = ""
       For Each t As String In txt.Reverse()
           TextBox1.Text &= t & " "
       Next