Sub Example_MRUNumber()
    ' Этот пример читает значение параметра, содержащее число недавно
    ' использованных файлов, которые показаны в меню File.
    
    Dim ACADPref As AcadPreferencesOpenSave
    Dim originalValue As Variant
    
    'Получите объект параметров OpenSave
    Set ACADPref = ThisDrawing.Application.preferences.OpenSave
    
    'Читайте и показывайте значение параметра
    originalValue = ACADPref.MRUNumber
    MsgBox "Число показанных файлов : " & originalValue

End Sub