Find/Replace Characters in a string

The string contains the correct character; MsgBox maps it to the ASCII character set. To convince yourself,

ReplaceinString = Replace(strSearch, "&lte;", ChrW(8804))
Range("A1").Value = ReplaceinString