[waelalmsry75]

أخي الكريم أبو نوره
عملت تجارب كثيرة على ما تفضلت به
ونجح معي الكود التالي في تحقيق ما أريد

كود :

Dim CaretPosition As Integer = TextBox1.SelectionStart
       If CaretPosition = 0 Then
           TextBox1.SelectedText = " " & "إدراج قبل النص" & " "
       ElseIf CaretPosition = TextBox1.Text.Length Then
           TextBox1.SelectedText = " " & "إدراج بعد النص" & " "
       Else
           TextBox1.SelectedText = " " & "إدراج أثناء النص" & " "
       End If

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