Выборка части строки - VB

Формулировка задачи:

Всем доброго дня !!!
Имею строку например такой формы:

/a/b/c/d/e/f/

Как можно при нескольких НАЖАТИЙ на кнопку получить :

.  /a/b/c/d/e/
.  /a/b/c/d/
.  /a/b/c/
 .....

Т.е. при каждом нажатие, чтобы происходила выборка без последнего
элемента и разделителя с конца строки
Спасибо.

Решение задачи: «Выборка части строки»

textual
                            Листинг программы 
                        

                            <font color="blue">Option</font> <font color="blue">Explicit</font>
<font color="blue">Dim</font> n <font color="blue">As</font> <font color="blue">Integer</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Command1_Click()
<font color="blue">Static</font> n <font color="blue">As</font> <font color="blue">Integer</font>
<font color="blue">Dim</font> s <font color="blue">As</font> <font color="blue">String</font>
<font color="blue">Dim</font> arr() <font color="blue">As</font> <font color="blue">String</font>
<font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Integer</font>
<font color="blue">Dim</font> j <font color="blue">As</font> <font color="blue">Integer</font>


<font color="blue">Me</font>.Text1.Text = <font color="teal">""</font>

arr = Split(<font color="blue">Me</font>.Text2.Text, <font color="teal">"/"</font>)

n = n + <font color="darkblue"><b>1</b></font>
i = UBound(arr) - <font color="darkblue"><b>1</b></font>
<font color="blue">If</font> n > i - <font color="darkblue"><b>1</b></font> <font color="blue">Then</font>
    n = <font color="darkblue"><b>1</b></font>
<font color="blue">End</font> <font color="blue">If</font>

s = <font color="teal">""</font>
<font color="blue">For</font> j = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> i - n
    s = s & <font color="teal">"/"</font> & arr(j)
<font color="blue">Next</font>
<font color="blue">Me</font>.Text1.Text = s & <font color="teal">"/"</font>



<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Form_Load()
<font color="blue">Me</font>.Text2.Text = <font color="teal">"/a/b/c/d/e/f/"</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        