AutoCAD Inventor :: Undo Actions Of Subroutine

I have a function which removes the filepath from an IDW drawing which is handy when exporting to other formats. Currently it's just used in a batch script so the drawings close without being saved and there is no problem. Now I'm trying to make another macro which will just export the currently open drawing. So I have to undo removing the file path so the drawing is back to it's original state.

Below is the code for removing the filepath from the titlebar. I tried to do the reverse and put <FILENAME AND PATH> back in, however it appears as normal text. Since the title block uses "variables" which update with other properties and I don't wish to lose that adaptibility. 
 
Function Remove_FilePath()On Error GoTo ErrMsgDim oDrawDoc As DrawingDocumentSet oDrawDoc = ThisApplication.ActiveDocument' Create the new title block defintion.Dim oTitleBlockDef As TitleBlockDefinitionSet oTitleBlockDef = oDrawDoc.ActiveSheet.TitleBlock.DefinitionDim oSketch As DrawingSketchCall oTitleBlockDef.Edit(oSketch)Dim count As Integercount = 1While oSketch.TextBoxes.Item(count).Text <> vbNullString If oSketch.TextBoxes.Item(count).Text = "<FILENAME AND PATH>" Then oSketch.TextBoxes.Item(count).Text = " " End If count = count + 1WendErrMsg:Call oTitleBlockDef.ExitEditEnd Function
 
So I either need a way to undo the actions of the subroutine or know how to insert the "variable" which references the file's properties.