You can try with:
Dim doc As Object = GetDocument(handle,documentname) doc.Content.InsertAfter(text)
Or define range Dim rngRange As ObjectrngRange = _ doc.Range(Doc.Range.End - 1,Doc.Range.End)rngRange.InsertAfter(text)-----------------------------...