Returns or sets the Unicode character value that is used for bullets in the specified text. Read/write Long.
Example
This example sets the bullet character for shape two on slide one in the active presentation.
Set frame2 = ActivePresentation.Slides(1).Shapes(2).TextFrame
With frame2.TextRange.ParagraphFormat.Bullet
.Character = 8226
.Visible = True
End With