Gosh your a genius I was looking deeply further and I found something simpler to write the text i need:

Dim fiParagraph
Dim fsoParagraph
set fsoParagraph = CreateObject("Scripting.FileSystemObject")
set fiParagraph = fsoParagraph.OpenTextFile(filelocation, 2, true)

if err.number = 0 then
    fiMessage.write vendorparagraph
end if

set fiMessage = nothing
set fsoMessage = nothing
Now I placed my own file where the filelocation is but an error comes up with Object Required: fiMessage

I am not quite sure how to fix can you help me. Thank you so much I really do appreciate the help.