Sub MyBullet()
'
' MyBullet Macro
'
'
   ' The variable "char" will contain
   ' the number of characters moved.
   Dim char As Long
   char = Selection.StartOf(Unit:=wdParagraph, Extend:=wdMove)
    Selection.TypeText Text:=vbTab & "•" & vbTab
    Selection.Style = ActiveDocument.Styles("MyBullet")

End Sub