title: Insert Symbol in Text box VBA Word
body: <p>I have the following code to insert a textbox into a word document:</p>
  
  <pre><code>Sub mark()
      Dim Box As Shape
      Set Box = ActiveDocument.Shapes.AddTextbox( _
          Orientation:=msoTextOrientationHorizontal, _
          Left:=20, Top:=20, Width:=20, Height:=20)
          Box.TextFrame.TextRange.Text = "tick"
  End Sub
  </code></pre>
  
  <p>The text inside the texbox needs to be:</p>
  
  <pre><code>Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3844, Unicode :=True
  </code></pre>