Do any of the labels contain the characters "&" or "<"? If so, these are special characters that interfere with the formatting tags. You have to replace them with their character codes of & and < like thisFunction FindLabel ([LABELFIELD]) NewString = Replace([LABELFIELD],"&","&") FindLabel = "<ITA>" & NewString & "</ITA>" End Function