[abubasilIraq]

اخي هذا ما يصير الا اذا كان هذا الجزء ثابت /pop/77885552 واذا كان ثابت ومعلوم عندك  ما هي الحاجة للكود بعد ذلك ؟ وفي حال كان هذا الجزء متغير بالنص لكن ثابت من ناحية عدد الحروف فتحتاج الى كود يعكس النص اولا ويحسب العدد المطلوب ويحذف الباقي
وعلى كل حال بناء على كلامك هذا كود متعدد الخطوات للتوضيح والتعليم ينجز ما تريد

كود :

  Dim str, str1, str2 As String
       str = TextBox1.Text
       str1 = "/pop/77885552"
       str2 = Replace(str, str1, "")
       TextBox1.Text = Replace(str, str2, "")