You pass the script a string, a length you want the string to be and the trailing 
characters, what the function does, is takes the string, finds the last word that 
will fit into the overall length, and return a string that has been cropped. 
The function makes sure that a word is not cut in half.
 
e.g.
 
strTemp = "Hello, I am a fish and you are not."
strTemp = CropSentence(strTemp, 16, "...") 
'returns      Hello, I am a... 
 
strTemp = "Hello, I am a fish and you are not."
strTemp = CropSentence(strTemp, 17, "...") 
'returns      Hello, I am a fish... 
 

FUNCTION CropSentence(strText, intLength, strTrial) 
  'Written By Oliver Southgate, You may use with or without this comment. The function does what is says. 
  Dim wsCount 
  Dim intTempSize 
  Dim intTotalLen 
  Dim strTemp 
  
  wsCount = 0 
  intTempSize = 0 
  intTotalLen = 0 
  intLength = intLength - Len(strTrial) 
  strTemp = "" 
    
  IF Len(strText) > intLength THEN 
    arrTemp = Split(strText, " ") 
    FOR EACH x IN arrTemp 
      IF Len(strTemp) <= intLength THEN 
        strTemp = strTemp & x & " " 
      END IF 
    NEXT 
      CropSentence = Left(strTemp, Len(strTemp) - 1) & strTrial 
  ELSE 
    CropSentence = strText 
  END IF 
END FUNCTION