AutoCAD VB :: First Time Automatisation (changing Text)

I'm trying to automate something that takes a lot of time at my company.We got a lot of P&ID drawings full of tags. I want to automate the modification of tags according to an excel table.

I got something working but it's not reliable. It often doesn't work and it's very slow. I'm no programmer besides some programming classes back in school.It's function is to let the user pick which P&ID's should be put in the modification loop.It's just a listbox (filenames), a textbox (for the file location) and a button.

Private Sub CommandButton1_Click()Dim vtPid As VariantReDim vtPid(0)Dim i As Integer, j As Integer j = 0 For i = 0 To lstPid.ListCount - 1 If lstPid.Selected(i) = True Then ReDim Preserve vtPid(j) vtPid(j) = lstPid.List(i) j = j + 1 End If NextfrmPidTag.HideCall Modifie_PIDTag(vtPid, txtLocation.Text)End Sub

The code is in my module.First I open the excel (table with 2 columns, old and new tag) and put the table in an array.The array is then used cycle through al entities.

[b] I'm trying to change certain text located in the layer "instrumentation".[/b] It's just text strings, no blocks or anything.

I'd like to use another method to get only the entities with possible matches but this seems to be the only reliable method. Only cycling textstrings would be better.

Sub Modifie_PIDTag(ByVal vtPid As Variant, ByVal varLocation As String)' Create the Excel objectDim oExcel As Excel.ApplicationDim oBook As Excel.WorkbookDim oSheet As Excel.WorksheetDim aryPID()Dim LastRow As IntegerDim LastColumn As Integer' Open existing workbookSet oExcel = CreateObject("Excel.Application")Set oBook = oExcel.Workbooks.Open(varLocation & "EXCELDrawingData.xlsx")'Set oExcel = New Excel.ApplicationoExcel.Visible = False ' Open worksheetSet oSheet = oBook.Worksheets("PIDtag")oSheet.Activate' Read ExcelLastColumn = oSheet.Cells(1, oSheet.Columns.count).End(xlToLeft).ColumnLastRow = oSheet.Cells(oSheet.Rows.count, 1).End(xlUp).RowReDim aryPID(1 To LastRow, 1.
[code]....

The get/create autocad object may seem out of place there but it was the only way to solve an error.Calling the subroutine from a form gave me automation errors.