Is there any wrong with below code?
Public Sub doIt()

        Try
            Dim acadApp As AcadApplication = _AcAp.Application.AcadApplication
            Dim sAryDwgPaths(4) As String
            sAryDwgPaths = getDwgPaths()
            For ix = 0 To sAryDwgPaths.Length - 1
                If Not System.IO.File.Exists(sAryDwgPaths(ix)) Then
                    Continue For
                End If
                Dim pDoc As AcadDocument = acadApp.Documents.Open(sAryDwgPaths(ix))
                acadApp.ActiveDocument = pDoc

                Dim doc As Document = acApp.DocumentManager.MdiActiveDocument
                Dim db As Database = doc.Database
                Dim allLayer As New Layer.AllLayerState()
                allLayer.memorize(db)
                allLayer.unlock()

                Dim activeDoc As AcadDocument = Nothing
                Dim sDwgName As String = ""
                Dim objSet As AcadSelectionSet = Nothing
                Dim pParentBlkRef As AcadBlockReference = Nothing
                Dim pt As Object = Nothing
                Dim att As Object = Nothing

                Try
                    activeDoc = GetThisDrawing()

                    objSet = getAllSym()
                    If objSet Is Nothing Then
                        Return
                    End If

                    For jx = 0 To objSet.Count - 1
                        If activeDoc.Blocks.Item(objSet.Item(jx).Name).IsXRef = True Then
                            Continue For
                        End If

                        pParentBlkRef = objSet.Item(jx)
                        Dim sEffectiveName As String = GetEffectiveName(activeDoc, pParentBlkRef)

                        If rxBlnParts.IsMatch(sEffectiveName) Then
                            Continue For
                        ElseIf rxBlnPurchase.IsMatch(sEffectiveName) Then
                            att = pParentBlkRef.GetAttributes
                            Continue For
                        ElseIf rxBlnText.IsMatch(sEffectiveName) OrElse rxBlnMaterials.IsMatch(sEffectiveName) Then

                        Else

                            Dim pSubBlkRef As IAcadBlockReference = Nothing
                            Dim obj As AcadObject = Nothing
                            If activeDoc.Blocks.Item(pParentBlkRef.Name).IsXRef = False Then
                                For Each obj In activeDoc.Blocks.Item(pParentBlkRef.Name)
                                    If obj Is Nothing Then
                                        Continue For
                                    End If
                                    If obj.ObjectName = "AcDbBlockReference" Then
                                        pSubBlkRef = obj
                                        Dim sSubName As String = pSubBlkRef.EffectiveName
                                        Dim btr As AcadBlock = activeDoc.Blocks.Item(sSubName)
                                        pt = pSubBlkRef.InsertionPoint
                                    End If
                                Next
                            End If
                        End If
                    Next
                Catch
                    MsgBox("ERROR")

                Finally
                    If objSet IsNot Nothing Then
                        objSet.Delete()
                    End If
                End Try

                allLayer.remember()
                doc.Editor.Regen()

                pDoc.Close(False)
            Next

            deleteDwgs(sAryDwgPaths)
        Catch

        End Try

    End Sub