Vbscipt/classic ASP - show first x chars and preserve last word

Function CropStringAt(strString, iLettersAmount)
	Dim result, x, curChar
	result = Left(strString, iLettersAmount)
	x = iLettersAmount+1
	Do Until x>Len(strString)
		curChar = Mid(strString, x, 1)
		If (curChar=" ") Or (curChar=",") Or (curChar="-") Or (curChar="(") Or _
			(curChar=")") Or (curChar="[") Or (curChar="]") Then Exit Do
		result = result & curChar
		x = x+1
	Loop
	CropStringAt = result&"..."
End Function

Dim mystring
mystring="some long string can come here"
Response.Write(CropStringAt(mystring, 8))