Return it where? If you mean add it to the end of the document, then add a boolean variable declaration DIM bRevision as Boolean and replace the message box with
Code:
bRevision = ActiveDocument.TrackRevisions
ActiveDocument.TrackRevisions = False
ActiveDocument.Range.InsertAfter vbCr & sTemp
ActiveDocument.TrackRevisions = bRevision