Dim myDB As New Database
myDB.ReadDwgFile(dwgfile, IO.FileShare.ReadWrite, True, "")
Using mytx As Transaction = myDB.TransactionManager.StartTransaction()
	Dim nod As DBDictionary = CType(mytx.GetObject(myDB.NamedObjectsDictionaryId, OpenMode.ForRead, True), DBDictionary)
        For Each dictentry As DBDictionaryEntry In nod
        	If dictentry.Key.ToString = "ACAD_VBA" Then
                	Dim vbadict As DBDictionary = CType(mytx.GetObject(dictentry.Value, OpenMode.ForWrite), DBDictionary)
                        vbadict.Erase()
			Exit For
                End If
        Next
        mytx.Commit()
End Using
myDB.SaveAs(dwgfile, DwgVersion.AC1800)
myDB.Dispose()