Sub Example_RunMacro()
    ' Этот пример загружает DVB файл и выполняет макрокоманду,
    ' содержавшуюся в файле, используя RunMacro метод.
    '
    ' Этот пример использует DVB файл drawline.dvb.
    ' Вы должны изменить пример, чтобы использовать файл на вашем компьютере.
    '
    ' * Примечание: Если Вы открываете DVB файл и затем выполняете пример,
    ' чтобы загрузить его, будет ошибка, при попытке выгрузить файл.

    Dim FileName As String
    
    FileName = "c:\drawline.dvb"
    
    ' Загрузить VBA DVB файл
    LoadDVB FileName
    
    ' Выполнить drawline макроc
    RunMacro "Module1.Drawline"
    
    ' Выгрузитесь drawline VBA DVB файл после выполнения
    UnloadDVB FileName
    
    MsgBox "DVB файл был выполнен! "

End Sub