Private Declare Function SendMessage Lib "user32" Alias _
   "SendMessageA" _
   (ByVal hwnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, lParam As Any) As Long
 
Private Const EM_GETLINECOUNT = &HBA
Private Const EM_GETLINE = &HC4
 
Private arsLines() As String
 
Private Sub Text1_Change()
   Static n As Long
   Dim nLines As Long, i As Long
   Dim sBuffer As String
 
   nLines = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0, ByVal 0&)
   If nLines <> n Then
      n = nLines
      ReDim arsLines(nLines)
      sBuffer = Space(255)
      For i = 1 To nLines
          SendMessage Text1.hwnd, EM_GETLINE, i, ByVal sBuffer
          arsLines(i) = Trim(sBuffer)
      Next
   End If
End Sub