Cigaweed,

Not sure what you're attempting to do there but it is as simple as Les already supplied. Unless you're trying to add the code to check for a maximum of 1,000 characters in which case wouldn't the message seem odd anyways if you just arbitrarily cut it off at that level ???


Here is the complete code that should work as Les says.

Code:
Dim $Message,$MB
$Message = Join(ReadFile('C:\TEMP\TEST.TXT'),@CRLF)
$MB = MessageBox($Message,'Words of Wisdom',64,)
 
Function ReadFile($file)
Dim $lf, $f, $_, $t
  $lf=CHR(10)
  $f=FreeFileHandle
  $_=Open($f,$file)
  If @ERROR   Exit @ERROR   EndIf
  Do $t=$t+$lf+ReadLine($f) Until @ERROR
  $_=Close($f)
  $ReadFile=Split(SubStr($t,2),$lf)
EndFunction


In the FULL script though I would recommend that you get used to using these options

Code:
Dim $SO
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')