How to copy special characters and symbols using function and VBA

Hi,
Sometime I use VBA to copy and paste text to a blank cell or update override a cell value
pending on the value from validation list. I know how to do with regular letters, but not
special character and symbol such as checkmark, arrows, etc.

Is there a way to do in VBA and function? Attached is file hope that will to explain my need.


Regards,