Function fstrchangeprM2Unicode2 (byval Strorg) DIM STRETURN
ON Error ResMe next
Strreturn = Strorg Strreturn = Replace (Strreturn, "/", "/ U005C") Strreturn = Replace (Strreturn, "'", "/ u0027") strreturn = Replace (Strreturn, "" "", "/ u0022") Strreturn = Replace (Strreturn, VBCR, "") Strreturn = Replace (Strreturn, VBLF, "/ U000A) Strreturn = Replace (Strreturn," <"," / U003C ") strreturn = Replace (Strreturn,"> "," / U003E ") Strreturn = Replace (Strreturn," & "," / U0026) Strreturn = Replace (Strreturn, "%", "/ U0025") Strreturn = Replace (Strreturn, "#", "/ u0023") fstrchangeprM2Unicode2 = Strreturn
END FUNCTION