Sub TestParagraphs()

    Dim p As Paragraph
    
    With ActiveDocument
        
        ' Variable "p" seems to hold reference
        ' to new (third) paragraph....
        Set p = .Paragraphs.Add()
        ' ...or does it?
        p.Range.Text = "par3"
        
        ' What we get here is that third paragraph is gone
        ' AND second paragraph now holds "par3" text.
        
        ' This is work around, which works.
        .Paragraphs.Add
        Set p = .Paragraphs(.Paragraphs.Count)
        p.Range.Text = "par3"
        
    End With

End Sub