Option Explicit
Dim n As Integer

Private Sub Command1_Click()
Static n As Integer
Dim s As String
Dim arr() As String
Dim i As Integer
Dim j As Integer


Me.Text1.Text = ""

arr = Split(Me.Text2.Text, "/")

n = n +  1 
i = UBound(arr) -  1 
If n > i -  1  Then
    n =  1 
End If

s = ""
For j =  1  To i - n
    s = s & "/" & arr(j)
Next
Me.Text1.Text = s & "/"



End Sub

Private Sub Form_Load()
Me.Text2.Text = "/a/b/c/d/e/f/"
End Sub