Visual Basic - Ayuda urgente

Hola, tengo una pequeña duda...
En un campo de una tabla de la BD tengo un texto escrito en varias líneas, así, por ejemplo:
1 - fdfdñjñflj
4 - fdgdg jñdkj ñldj
5 - dkjklj

El número de líneas nunca es fijo, pero lo que quiero es separar esas líneas (para después contabilizar cuántas líneas (de la 1ª por ejemplo) en la BD hay.

¿Sabeis de alguna función o algo que me ayude?

Muchas gracias.

Lo que en realidad te convendría hacer es guardar los datos tal como lo haces, pero separándolos por un caracter que entiendas nunca va a ser utilizado como texto de usuario.
Por ejemplo

1 - fdfdñjñflj #
4 - fdgdg jñdkj ñldj #
5 - dkjklj #

cuando vos tomes el valor de ese campo en una variable
tuVariable= tuRs!DatosNumerados
luego podrás crear un arreglo o array con dichos datos
dim sepcampo
sepcampo=Split(tuVariable, "#")
Y ahora las manejas por separado como
debug.print sepcampo(0)
debug.print sepcampo(1)
debug.print sepcampo(2)

Si no existe un delimitador, no tenés solución, ya que los datos pueden ser tan diversos que sería improbable su separación, salvo en forma manual.

Existe vbCrLf como delimitador de fin de linea.

Este pobre iluso cree que siempre se terminal las línes con vbCrLf, supongo que conoció de esta constante con alguna de las respuestas que tanto critica

Y con esta instrucción ' Split ' , si no se sabe ( en mi caso ) el número de líneas, cómo se controla? O sea, que si el campo puede tener máximo 7 líneas, pero a veces hay 4, del sepcampo(4) al sepcampo(6) producirá un error de intervalo.
¿Cómo se mejora eso?

Muchas gracias de nuevo.

La función Split crea la matriz de acuerdo a la cantidad de lineas que vos tengas, Si tenés 20 líneas y por lo tanto 19 delimitadores, pues creará 20 indices dentro de la matriz y en cada una asignará una línea
Si vos querés tomar todas las líneas porque vas a hacer un bucle For i=0 to 6 no te conviene porque sí ahí provocás un error de intervalo, debés hacer un For Each
Usando la función Ubound y restándole 1