Contar los guiones de una expresion

[wiro]

Hola.

Necesito alguna idea para hacer esto.

Quiero contar la contidad de quines que trae una expresion, por ejemplo

"Will-456-85-0"

yo necesito saber cuantos quiones trae esta expresion, al idea es que sean 3 guines pero si trae mas o menos de 3 neesito mandarle un MSG a mi usuario en donde le indicare que la expresion es incorrecta por que trae mas de 3 guiones o por que trae menos de 3, ya que lo corrcto seran 3.

me pueden ayudar.

Gracias

[tazzito]

cadena = txtabuscar.Text
cont = 0
Do While True
paso = InStr(1, cadena, "-")
If paso < 1 Then Exit Do
cadena = Right(cadena, Len(cadena) - paso)
cont = cont + 1
Loop
MsgBox Trim(cont)