mmmmmmmmm si es por contar cuantos saltos de linea trae un texto, creo , que deberias usar una expresion regular que te busque por el caracter de salto de linea que es el chr(10).
chequea este ejemplo
Código:
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' Crea una variable.
Set regEx = New RegExp ' Crea una expresión regular.
regEx.Pattern = patrn ' Establece un modelo.
regEx.IgnoreCase = True ' Establece la no distinción de mayúsculas y minúsculas.
regEx.Global = True ' Establece la aplicabilidad global.
Set Matches = regEx.Execute(strng) ' Ejecuta la búsqueda.
For Each Match in Matches ' Repite el conjunto de coincidencias.
RetStr = RetStr & "Coincidencia encontrada en la posición "
RetStr = RetStr & Match.FirstIndex & ". El valor de la coincidencia es '"
RetStr = RetStr & Match.Value & "'." & vbCRLF
Next
RegExpTest = RetStr
End Function
MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))
