RE:URGENTE ...Numero de lineas en un Text
Toda línea finaliza en un caracter de retorno de carro + avance de línea (vbcrlf) alcanza con contarlos.
Private Sub Command1_Click()
Dim k As Long, s As String, ipos As Long, nl As Long
s = Text1.Text
'Verifica si en último caracter es vbcrlf, sino lo agrega
If Mid$(s, Len(s) - 2) <> vbCrLf Then s = s & vbCrLf
k = 1
Do
ipos = InStr(k, s, vbCrLf, vbTextCompare)
k = ipos + 1
If ipos > 0 Then nl = nl + 1
Loop Until (ipos < 1)
MsgBox "Escribió " & nl & " líneas"
End Sub