sacar cantidad de un carácter

[ebu]

hola!

si en una variable tengo lo siguiente nombre="Trabajos/Matemáticas/Ejercicios" como puedo sacar la cantidad del carácter "/"??
he estado probando con instr, len... pero no logro sacarlo.

les cuento un poco más. tengo el siguiente código:
dim nombre as string, nombre2() as string
nombre = ...'va cogiendo diferentes rutas
nombre2 = Split(nombre, "/")
nombre = nombre2(UBound(nombre2))
el caso es que en la línea de negrita me da error9. yo entiendo que eso es porque no he dimencionado el vector.

lo que quiero hacer:
dim nombre as string, nombre2() as string
nombre = ...'va cogiendo diferentes rutas
contar=..'contar el número de caracteres de "/"
redim nombre2(contar+1)
nombre2 = Split(nombre, "/")
nombre = nombre2(UBound(nombre2))

agradeceria vuestra ayuda!
saludos!

[boluart]

Código:

 
Dim strCad() As String
strCad = Split(Me.Text1.Text, "/")
Dim i As Integer
For i = 0 To UBound(strCad)
    MsgBox strCad(i)
Next

[ebu]

gracias por responder.

creo que sería algo así:
Sub main()
Dim a As String
Dim cantidad As Long
Dim b() As String
a = "8266/328/64278"
b = Split(a, "/")
cantidad = UBound(b)
End Sub

como el vector b empieza desde cero el Ubound(b) será el valor de la cantidad del caracter /. en este caso 2.

gracias de nuevo!
saludos!