请教高手，我成功获得了DVB工程对象，为什么不能保存该宏工程文件的修改啊？

清风明月10

请教高手，我成功获得了DVB工程对象，为什么不能保存该宏工程文件的修改啊？即“DVBDX.Save”无效
Function 获得列表框指定的宏工程对象()
    On Error Resume Next
    Dim 列表框选中文档名, HGCWZMC As String, I
    列表框选中文档名 = ListBox1.List(ListBox1.ListIndex, 1)
    If IsNull(列表框选中文档名) Or 列表框选中文档名 = "" Then
        MsgBox "没有在列表框中选中任何一个宏工程文件名"
    Exit Function
    End If
    Dim objIDE As Object
    Set objIDE = Application.VBE
    For I = 0 To objIDE.vbprojects.Count - 1
            HGCWZMC = objIDE.vbprojects(I + 1).Filename '这是获得宏工程文件的完整名称如“D:\00邓细木CAD插件汇总\CAD2005中C盘的Support菜单文件以日期为名保存于此\2012-03-18-17-12(菜单文件第一次改在默认的同菜单文件的同一文件夹SUPPORT下)\邓细木的宏DXM.dvb”
            If HGCWZMC = 列表框选中文档名 Then
                    Set 获得列表框指定的宏工程对象 = objIDE.vbprojects(I + 1)
                    Exit Function
            End If
            Rem Debug.Print objIDE.vbprojects(i + 1).Name'这是获得ACADPROJECT的名称，属内置名
    Next
End Function

Private Sub CommandButton640_Click()
On Error Resume Next
Dim DVBDX As Object '即为DVB宏工程对象
Set DVBDX = 获得列表框指定的宏工程对象()
DVBDX.Save
End Sub