AutoCAD Inventor :: VBA Script For Editing Title Block In IDW Files

I've been looking for a while and managed to find 2 VBA scripts for replacing values in a title block. However one errors out on the line that is supposed to do the replacing and the other works off an ID number which isn't consistent.

I'm a proficient scripter but not in this language, so how these scripts are working but not the intricacies of them. Which Is exactly what I think is needed to get either of them working.
 
Function Test_UpdateTitleBlock()Dim oDoc As DrawingDocumentSet oDoc = ThisApplication.ActiveDocumentDim oTitleBlock As TitleBlockDim oTextBox As TextBoxDim oSheet As SheetFor Each oSheet In oDoc.Sheets Set oTitleBlock = oSheet.TitleBlock For Each oTextBox In oTitleBlock.Definition.Sketch.TextBoxes If oTextBox.Text = "<FILENAME AND PATH>" Then ' Errors here and doesn't replace text Call oTitleBlock.SetPromptResultText(oTextBox, "New Value") End If NextNextEnd Function

This throws an error on the line I have marked.
 
Function Remove_Filepath()Dim 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)oSketch.TextBoxes.Item(20).Text = " "Call oTitleBlockDef.ExitEditEnd Function 

This one works great, except that it does a "dumb" replace because it looks for the Xth textbox and edits that. The problem is in a detail drawing I want to edit textbox 20 but in assembly drawings I don't want to edit any textbox. So how to get this to loop through the textboxes and compare the text to what I want to replace.