extraer cadena hasta enter

Hola Grupo:

Deseo extraer del todal de una cadena, una cadena hasta el enter.
tengo el siguinete Texto en una variable de tipo String:

Cadena> "CREATE PROCEDURE SpName -- SpName 2 -- descripcion
@A TINYINT
AS
SELECT * FROM Tabla WHERE A= @A"

solo quiero que me devuelva el numero de caracteres de:
"-- SpName 2 -- descripcion" que es el comentario.

Lo intento hacer asi: donde I es 24 el inico de la cadena
nSelLen = InStr(I, Cadena, vbCrLf)
Intento detectar el primer enter que encuentre..pero me devuelve 0.
Alguien me puede ayudar, por favor. hay otra forma de hacerlo?

Gracias
Jose Luis H
Peru-Aqp