Extraer o saber la cantidad de - en texto

[Manu_Leon]

Prueba esto:

Código:

Dim array_valores() as string
dim num_elementos as integer
dim i as integer
array_valores=Split(Text1.text, "-")

'ahora en array valores tenemos un array con los datos que estaban separados por -
'si sólo queremos saber cuántos había:
num_elementos=UBound(array_valores) - LBound(array_valores)+1
 
'si además queremos mostrarlos en un label por ejemplo:
For i=LBound(array_valores) to UBound(array_valores)
label1.caption=label1.caption & " " & array_valores(i)
Next