Add Text To Existing Text

Hey i need to add text to existing text. For example to a multiline textbox
before and after the words like
before function
cat
dog
bird
fish
after function
black cat eats
black dog eats
black bird eats
black fish eats
i need to be able to do a text/list of thousands of lines of text
i really appreciate the help anyone can offer

There is a really easy way to get what you want


text1.text = "black " & replace(text1.text,vbnewline," eats" & vbnewline & "black ") & " eats"

works like a charm thanks again
:)