On the format event of the section with your text box add a variation of the following code:
Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)
Me.MyTextBox = Me.MyTextBox & Chr(153)
End Sub
Where MyTextBox is the name of your text box.
You can add other symbols too, if you use the following code, it will give you a list of the relevant chr number to use:
Sub test()
Dim x As Integer
For x = 1 To 255
Debug.Print x & " " & Chr(x)
Next x
End Sub