Visual Basic - manejo de cadena

Buenos dias:
Mi consulta es la siguiente tengo un programa en Visual Basic 6 y necesito extraer palabras de una frase que esta separada x / y - :
Ejemplo: Zapato/Blanco-Cuero
yo necesito esas 3 palabras en 3 variables para despues hacer un codigo.
Espero que puedan ayudarme muchas gracias

Dim cadena1() As String
Dim cadena2() As String
ReDim cadena1(0)
ReDim cadena2(0)

cadena1 = Split( Zapato/Blanco-Cuero, "/", -1, 1)
zapato=cadena1(0) ' obtienes el primer valor del vector

cadena2= Split( cadena1(1), "-", -1, 1)
Blanco=cadena2(0)
Cuero=cadena2(1)