[just.coder]

اتمنى ان يفيدك هذا

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ioo() As String
        ioo = TextBox1.Text.Split(vbCrLf)
        For i As Integer = 0 To ioo.Length - 1
            Dim itm, n, x, itm2 As String
            itm = ioo(i)
            n = InStr(LCase$(itm), "\")

            x = InStr(LCase$(itm), "/")
            itm2 = Mid(itm, n + 1, x - n - 1)
            TextBox2.Text += itm2 & vbCrLf
        Next
    End Sub