lngLength = SendMessage(hwnd, EM_LINELENGTH, i, 0)

Return max 109

However if i set strBuffer = Space$(256) then i'll able to retreive up to 256 char on Call SendMessageStr(hwnd, EM_GETLINE, i, ByVal strBuffer)