I see one thing wrong with the code
This code he show shouldn't be there
if fField_Type = "tooltip" then
	fString = Replace(fString, """", "")
	fString = Replace(fString, "'", "")
	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10) & CHR(10), ".")
	fString = Replace(fString, CHR(10), ".")
	chkString = fString
end if
It needs to be after this code (inc_func_common)
		Case "hidden"
			fString = HTMLEncode(fString)
And it should look like this
Case "tooltip"
	fString = Replace(fString, """", "")
	fString = Replace(fString, "'", "")
	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10) & CHR(10), ".")
	fString = Replace(fString, CHR(10), ".")
	chkString = fString
Also if you read the replies some people were having problems with it.<