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.<