Break a MARC File Via COM (Function)

'======================================================
'FUNCTION/SUB: Marc_Break
'Description: Encapsulates the MarcBreaker functions
'======================================================

Function Marc_Break(source, dest)

Dim obj_MB
Dim lret


if fso.FileExists(source)=false then
    msgbox "Local MarcFile Could not be located.  Quitting"
    wscript.quit
end if

Set obj_MB=CreateObject("MARCEngine5.MARC21")
lret=obj_MB.MarcFile(source, dest)


set obj_MB=Nothing
Marc_Break=lret

end Function