StrOut = StrOut & strFnd & vbTab & Replace(Replace(ParseNumSeq(StrPages), ",", ", "), " ", " ") & vbCr