find the ASCII code of any symbol

Select any symbol and run the macro below over it. This will give a message box containing the ASCII code of the symbol.

Sub GetAsciiCode()
MsgBox "ASCII code is: " & AscW(Selection.Text)
End Sub