Private oExl As New Excel.Application
    Private Sub LoadMacro(ByVal sFileName As String, ByVal sMakroName As String)
        Dim Result As Object
        oExl.Workbooks.Open(sFileName)
        Result = oExl.Run(sMakroName, [PARAMETERS])
    End Sub