🚀 go-pugleaf

I'm bringing in a series of strings into a story that spans over several text frames and across several pages.

I have a record that stores the text strings as they are pulled out of an external file.

Private Type AdRecord
    adtext As String
    adprice As String
    adphone As String
End Type

each of the fields is used in combination with the others to form one "ad".

The ads are supposed to look like this:

texthere(left justified)
pricehere(right justified)
phonehere(left justified, followed by a paragraph rule below it.)

I can bring in the text ok:

The strings are placed at the top of the first text frame (in reverse order, so that the first ad at the top at the end)

but i am running into trouble when i try and apply paragraph formatting to the text. the paragraph styles don't 'stay with' the paragraph as it's pushed down the story.

here is my code:

-----------------------------
Set ParaNorm = myDocument.ParaStyles.Add
    ParaNorm.PointSize = CDbl(Text5.Text)
    ParaNorm.AppliedFont = Text4.Text
    ParaNorm.Justification = idLeftJustified
    ParaNorm.KerningMethod = "None"
    ParaNorm.Tracking = -12
    ParaNorm.Leading = 9.5
    ParaNorm.SpaceAfter = "0p9"
    ParaNorm.KeepAllLinesTogether = True
    ParaNorm.Name = "Normal"

Set ParaUL = myDocument.ParaStyles.Add
    ParaUL.PointSize = CDbl(Text5.Text)
    ParaUL.AppliedFont = Text4.Text
    ParaUL.Justification = idLeftJustified
    ParaUL.KerningMethod = "None"
    ParaUL.Tracking = -12
    ParaUL.Leading = 9.5
    ParaUL.RuleBelow = True
    ParaUL.RuleBelowOffset = "0p7"
    ParaUL.RuleBelowLineWeight = 0.25
    ParaUL.SpaceAfter = "0p9"
    ParaUL.KeepAllLinesTogether = True
    ParaUL.Name = "Underline"

Set myStory = TFrameArray(1).ParentStory
    myStory.KeepAllLinesTogether = True

For i = UBound(SectionArray) - 2 To 0 Step -1

myStory.TextContents = Replace(SectionArray(i).adphone, "<R>", vbCr) & vbCr & myStory.TextContents

Set myParagraph = myStory.Paragraphs.Item(1)
    myParagraph.ParagraphStyle = myDocument.ParaStyles.Item("Underline")



myStory.TextContents = SectionArray(i).adtext & vbCr & SectionArray(i).adprice & vbCr & myStory.TextContents

Set myParagraph = myStory.Paragraphs.Item(1)
    myParagraph.ParagraphStyle = myDocument.ParaStyles.Item("Normal")

Next

-----------------------------

What i end up with is the entire story being formatted using the 'underline' paragraph style, except for the first paragraph, which has the 'normal' style applied to it.

I understand why my code isn't working as intended, but I don't know enough about indesign to figure out how to get it to work like i want.

any help is appriciated.