Private Function GetRowContent(hWnd As Long) As String
 
  Dim CursorPos As Long
  Dim Line As Long
  Dim FirstChar As Long
  Dim RowLength As Long
  Dim Buffer() As Byte
 
  CursorPos = SendMessage(hWnd, EM_GETSEL, 0, ByVal 0&) \ 65536
  Line = SendMessage(hWnd, EM_LINEFROMCHAR, CursorPos, ByVal 0&)
  FirstChar = SendMessage(hWnd, EM_LINEINDEX, Line, ByVal 0&)
  RowLength = SendMessage(hWnd, EM_LINELENGTH, FirstChar, ByVal 0&)
 
  ReDim Buffer(RowLength)
  Buffer(0) = RowLength
 
  SendMessage hWnd, EM_GETLINE, Line, Buffer(0)
  GetRowContent = Left$(StrConv(Buffer, vbUnicode), RowLength)
 
End Function