Tio surgio un pequeño problema, cuando utilizo vbCrLf ó vbNewLine o doy el salto con la tecla enter funciona perfecto, pero cuando el RichTextBox asigna automaticamente el salto cuando el texto es muy largo no funciona!,tu habias mencionado algo al respecto anteriormente, supongo por que en la funcion solo se coloca el vbCrLf, alguna idea de como saber cuando el richtexbox le asigna el salto automaticamente?
Código:
Function ContarSaltos(ByVal cadena As String) As Double
Dim Contador As Double
Dim Posicion As Double
Repite:
Posicion = InStr(Posicion + 1, cadena, vbCrLf)
If Posicion <> 0 Then
Contador = Contador + 1
GoTo Repite
End If
ContarSaltos = Contador
End Function
No me habia percatado de esto porq tengo otra funcion con el api sendmessage y si me cuenta los saltos aun cuando los haga el richtextbox automaticamente.
saludos