04/01/2007, 11:22
|
 | | | Fecha de Ingreso: agosto-2006
Mensajes: 381
Antigüedad: 18 años, 9 meses Puntos: 2 | |
| Re: Contar los guiones de una expresion
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) |