VBA find word and create numbered list under it

[WarPiglet]

I work in a clinic and editing progress notes takes a huge chunk of time. I have already wrote a macro to do most of what I want it to do. The only thing left is to add numbers to each line under the Assessment paragraph.

Before
(Data)

Assessment
Hypertension controlled
Hyperlipidemia
Diabetes Mellitus IDDM

Diagnosis
(More data)

After
(Data)

Assessment
1. Hypertension controlled


2. Hyperlipidemia
3. Diabetes Mellitus IDDM

Diagnosis
(More data)

So the goal is to find the word Assessment and create a numbered list of everything under it. There is a paragraph enter before Assessment. There is a paragraph enter before Diabgnosis. Paragraph enter code I used is ^p.

If you could help me out, it would be awesome. My knowledge in VBA excel is extensive; however, VBA word is another world.