Excel VBA: replace top line of textbox from cell value -

i have textbox in excel paragraph style entry. want automate adding line cell a1 replace top line of paragraph.

basically there's title line , paragraph in textbox, , want able replace title line value of cell a1 through vba.

use split array of lines, edit first line, join lines together. e.g.

strarray = split(yourstringwithnewlines, vbnewline) strarray(0) = "new first line" yourstringwithnewlines = join(strarray, vbnewline)