sacar cantidad de un carácter

[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!