Remove Excess Paragraphs Inside A TextBox

[HTSCF Fareha]

I have a TextBox called "txtExplanation", which is used to populate a Content Control of the same name in my document.

What I'm trying to achieve is the removal of any excess paragraphs that might be present within the TextBox. So in effect only a single paragraph is present between blocks of text and potential empty paragraphs removed after the last sentence.

I'm currently getting an "Invalid or unqualified reference" on this line

oRng.Text = .txtExplanation.Text

Here is what I am trying to use. Of course it's possible that I'm approaching this the wrong way!

Sub RemoveEmptyParagraphs()

    Dim occ    As ContentControl
    Dim oRng   As Range
    Dim oCtrl  As control
    Dim intCounter As Integer

    Set oRng = occ.Range
    
    oRng.Text = .txtExplanation.Text
    
    ' Set a range to the content control
    Set oRng = ActiveDocument.SelectContentControlsByTag("Explanation").Item(1).Range
    ' Fill the range with the content of the text box
    oRng.Text = oCtrl.Text
    
    ' Remove any empty paragraphs after last entered text
    intCounter = 1
    
    Do
        oRng.Paragraphs.Last.Range.Characters.Last.Delete
        
        intCounter = intCounter + 1
        ' Setting this to five should cater for the most extreme example
    Loop Until intCounter >= 5
    
lbl_Exit:
    Exit Sub
End Sub

[HTSCF Fareha]

Apologies, please ignore this post as posted in haste!