Extraer parte de una cadena

[programer]

Hola.

Haber si me podéis ayudar en hacer una función.

Tengo una cadena que contiene esto (mas o menos):
INICIO /archivo FIN

Lo que yo quiero es sacar archivo

Saludos.

[tragantras]

Option Explicit

Private Sub Command1_Click()
Dim cadena As String
cadena = Text1.Text
If Text1.Text = "" Then
    MsgBox "Inserta algo melón", vbCritical
Else
    Dim posi As Integer
    Dim posi2 As Integer
    posi = InStr(cadena, "/")
    posi2 = InStr(posi, cadena, " ") - posi
    Label1.Caption = Mid(cadena, posi, posi2)
End If
End Sub


A ver te explico lo que hace por si no t enteras:

1. Busca la posicion de /
2.Busca la posicion del primer espacio despues de /
3.Extrae el texto entre esas dos posiciones

PD: parece k no pero m a costao recordar esas funciones ya olvidadas xD