Selection.ToggleCharacterCode (Word)

Switches a selection between a Unicode character and its corresponding hexadecimal value.

Sub ToggleCharCase() 
 Selection.TypeText Text:="20ac" 
 Selection.ToggleCharacterCode 
End Sub