Add a module to your project Add 1 Text Box and 1 Label to your form. Change Text Box MultiLine property to True.


=========================================================
'Insert this code to the module :

Declare Function SendMessageLong Lib "user32" Alias_
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long,_
ByVal wParam As Long, ByVal lParam As Long) As Long

Public Const EM_GETLINECOUNT = &HBA


'Insert the following code to your form:

Private Sub Text1_Change()
Dim lineCount As Long
On Local Error Resume Next
lineCount = SendMessageLong(Text1.hwnd, EM_GETLINECOUNT, 0&, 0&)
Label1 = Format$(lineCount, "##,###")
End Sub