Private oExl As New Excel.Application
 
Private Sub LoadMacro(Byval sFileName, Byval sMakroName As String)
  Dim Result As Variant 
 
  oExl.Workbooks.Open(sFileName)
  Result = oExl.Run(sMakroName, Parameterliste)
End sub