Make a MARC File via COM (Function)

'======================================================
'FUNCTION/SUB: Marc_Make
'Description: Encapsulates the MarcMaker Functions
'======================================================

Function Marc_Make(source, dest)

Dim obj_MK

Set obj_MK=CreateObject("MARCEngine5.MARC21")
lret=obj_MK.MMaker(source, dest)

Set obj_MK=Nothing

Marc_Make=lret
end function