Adding a paragrpgh using InStr

[DMT Dave]

Hi Guy's, I am bit rusty with VBA at the moment as had a lot of things happening away from this,



How do I add a paragraph if a tick box is checked after a specific paragraph ?

So something like

Dim OrgMessage As String, MyStart As String, MyEnd As String, AddData As String
OrgMessage = Me.txtMailMessage
If Me.tbxSendPDF = True Then
AddData = "The serial number provided does not appear to match the critera of your enquiry details, before we fully commit to any" & _
"agreement, please identify your enquiry from our PDF document attached ?, your product is listed with an image and image number" & _
"please provide us with this image number to enable us to help"
OrgMessage = Me.txtMailMessage
'I want to find the word void in the orgmessage and call it MyStart
'I want to try and add 2 new lines (new paragraph)
'Then add AddData in this space after the paragraph ending in void
'Then the rest of teh original message called MyEnd
'So the end result is tbxSendPDF is checked is:
'1 mystart (everything before the word void from OrgMessage)
'2 AddData
'3 MyEnd
Me.txtMailMessage = MyStart & AddData & MyEnd
Else
DoCmd.CancelEvent
End If

[DMT Dave]

Hi Guy's just noticed my dislexic fingers Paragraph was meant to be the subject

[DMT Dave]

The MyStart upto the word void needs to include the word void so thats the last word in MyStart, then add 2 lines and add AddData then add 2 more lines and add MyEnd, unsure if i made the earlier post clear enough!

Kindest

[DMT Dave]

Hey guy's i have acheived this, wiped the rust off and thought about it got it working from an older posted StringPart