Lo que puedes hacer es recorrer caracter a caracter el texto y mirar si es un retorno de carro, algo asi seria:
Código:
for i=0 to len(algo)
if asc(mid(algo,i,1))=13 then 'El numero 13 del ascii es el retorno de carro
contador_carro=contador_carro+1 'Voy sumando uno cada vez que sea el retorno de carro en una variable contador
end if
next
espero que te sirva ciao.