Macro not working

[John9210]

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

[Charles Kenyon]

What is it you want to do?
Why are you using a macro to do it?

[John9210]

The macro inserts a special bullet into the document. Why a macro? Ans: quick access to create bullets as I type.

[Italophile]

You’re attempting to use a sledgehammer to crack a nut.

Just create, or modify, a bulleted style in your document. Assign a keyboard shortcut to that style. Result, quicker access to correctly create bullets as you type.

[Charles Kenyon]

Italaphile is correct.
Another method would be to save as a building block (also with a keyboard shortcut) or an AutoCorrect entry.

• How to control bullets in Ribbon Versions of Word by Shauna Kelly
• Assigning Keyboard Shortcuts in Microsoft Word 2007-2024 (365)
• Automated Boilerplate Using Microsoft Word