Insert a symbol or other character at the insert cursor position
Use this code snippet:
Dim oRange as TextRange
Set oRange = ActiveWindow.Selection.TextRange.Characters
oRange.Text = Chr$(123) ' the number of the character you want
oRange.Font.Name = "Monotype Sorts" ' the name of the font you want to use