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

السلام عليكم ورحمة الله وبركاته
اخي العزيز Dell
الكثير يقومون بعمل ذلك بالريجكس 
اما انا فسأجلبها لك بطريقة اخرى اليك الكود مع الشرح

هذا

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim MyFile() As String = TextBox1.Text.Split("\") ' انشاء مصفوفة من النص الموجود في تكست بوكس1 مع التقطيع بدلالة الباك سلاش
       TextBox2.Text = MyFile(MyFile.Length - 1) ' جلب العنصر ذو الاندكس طول المصفوفة -1  اي العنصر الاخير
   End Sub

او هذا

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim MyFile() As String = TextBox1.Text.Split("\") ' انشاء مصفوفة من النص الموجود في تكست بوكس1 مع التقطيع بدلالة الباك سلاش
       TextBox2.Text = MyFile.Last ' جلب من المصفوفة آخر عنصر
   End Sub