Visual Basic - ComoContarRenglonesDeunRichtextboxVB6

como logro contar los renglones de un cuadro de texto
enriquecido desde Visual Basic 6 Supongo que contando los Character(13) pero no se como lograrlo
Muchas gracias

Dim y as Integer
y = 0
' La variable y es para contar los renglones

For x = 1 to Len(Cadena) -1
' Un ciclo desde 1 hasta el tamaño de la cadena
If Mid(Cadena, x, 1) = Chr(13) Then
' Comparas caracter por caracter hasta encontrar 13
y = y +1
' incrementas en número de renglones
End if
Next x