I cannot figure out how to fix the bulleted list in this code. The list items output to the Word document, but they are not bulleted.

Private Sub CommandButton1_Click()

    Dim WordApp As Word.Application
    Dim doc As Word.Document
    Dim x As Integer

    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True

    Set doc = WordApp.Documents.Add

    WordApp.Selection.Font.Name = "Calibri"
    WordApp.Selection.Font.Size = "14"

    ' Set numrows = number of rows of data
    NumRows = Range("A2", Range("A2").End(xlDown)).Rows.Count
    Range("A2").Select

    For x = 1 To NumRows

        Set para1 = doc.Content.Paragraphs.Add
        para1.Range.InsertParagraphAfter
        para1.Range.Font.Size = "18"
        para1.Range.Font.Bold = True
        para1.Range.Font.Color = RGB(68, 114, 196)
        para1.Range.Text = "Moderator Instructions & Script"
        para1.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

        ' Insert a blank line between previous paragraph and table
        Set Para2 = doc.Content.Paragraphs.Add
        Para2.Range.Font.Size = "14"
        Para2.Range.Font.Bold = False
        Para2.Range.ParagraphFormat.Alignment = wdAlignParagraphLeft

        Set Para3 = doc.Content.Paragraphs.Add
        Para3.Range.InsertParagraphAfter
        Para3.Range.Font.Size = "14"
        Para3.Range.Font.Bold = True
        Para3.Range.Text = "BEFORE THE SESSION"
        Para3.Range.Shading.BackgroundPatternColorIndex = wdGray25
        Para3.Range.ParagraphFormat.Alignment = wdAlignParagraphLeft

        ' Insert a blank line
        Set para4 = doc.Content.Paragraphs.Add
        para4.Range.InsertParagraphAfter
        para4.Range.Font.Size = "14"
        para4.Range.Font.Bold = False
        para4.Range.ParagraphFormat.Alignment = wdAlignParagraphLeft

        ' Bulleted list
        Set ListPara1 = doc.Content.Paragraphs.Add
        ListPara1.Range.ListFormat.ApplyBulletDefault
        ListPara1.Range.Text = "This is a bulleted item 1" & vbNewLine
        
        Set ListPara2 = doc.Content.Paragraphs.Add
        'ListPara2.Range.ListFormat.ApplyBulletDefault
        ListPara2.Range.Text = "This is a bulleted item2" & vbNewLine

       
        ' End the bulleted list
        Set endListPara = doc.Content.Paragraphs.Add
        'endListPara.Range.ListFormat.ApplyBulletDefault

        ' Section Break New Page
        Set para6 = doc.Content.Paragraphs.Add
        para6.Range.InsertBreak Type:=wdSectionNewPage

        ActiveCell.Offset(1, 0).Select
    Next

End Sub