you need to use the UTF-16 hex code, remove the 0x on both strings, and integrate both strings as shown below.

that's how I write the emoji handshake in a cell (the UTF-16 hex code of that emoji is 0xd83e 0xdd12)

Cells(LineMeeting, ColLock).Value = ChrW("&HD83E") & ChrW("&HDD12")