Extraer o saber la cantidad de - en texto

[wiro]

Hola a migos necesito de susconsejos, que me den una idea de como hacer lo siguiente, el asunto es que necesito conocer la cantidad de guiones que tenga un tengo.

yo desde un InputBox les pido a mi usuaior que tecle los numeros de unos item separados cada item o numero por giones. Algo similar a esto

"12-5-8-9" en donde cada numero representa un item

en este ejemplo el tecleo 4 item afectados, yonecesito saber que son 4 y para ellopienso contar los guiones en esa cadena,detal manera q si yo se que tengo 3 giones como en este ejemplo sabre q tecleo 4 numeros distintos, pero para ello necesito contar esos guines en esa cadena, alguien me da una idea de como hacerlo o sabe como hacerlo.

Gracias

[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

[culd]

Busca mi funcion "Separar Datos"

[wiro]

OK amigos muchas gracias, me sirvio el codigo de ejemplo de Manu_Leon y gracias a ti tb culd por responder.

wiro