To insert text in a document, just specify a starting position. For example:
ActiveDocument.Text.Insert(0, "The start") ' puts the text at the beginning
i = ActiveDocument.Text.Count
ActiveDocument.Text.Insert(i, "The end") ' puts the text at the end of the document