'show amount of lines in a multi line textbox

Public 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

Dim lngLineCount As Long
    On Error Resume Next
  
   'get/show the number of lines in the edit control
    lngLineCount = SendMessageLong(Text1.hwnd, EM_GETLINE, 0&, 0&)
    Label1 = Format$(lngLineCount, "##,###")