The bullet is probably the letter m in a different font (eg Wingdings) so you will most likely need to add that font to the find/replace section of your code.
I think this is something along the lines of...
.Text = "^77"
.Font.Name = "Wingdings"

You need to select a bullet and have a look at what font name is applied to it and replace Wingdings accordingly.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia