ExportCustom and ImportCustom in Aucotec.Utils

Hello,
I have developed a Sub for exporting a catalog with the Sub Aucotec.Utils.ExportCustom, in this way:

Public Sub CatalogExport()
Dim atParamData(0) As Aucotec.AucTPCCustomParam
Dim sFileName As String
Dim CatObj As ObjectItem

Set CatObj = Application.RootObject.Children("Catalogs".Children(CATALOG_NAME)
sFileName = TEMP_FOLDER & CATALOG_NAME & ".ext"

If Dir(sFileName) <> "" Then Kill sFileName

atParamData(0).oOID = CatObj.ID
atParamData(0).nMethod = 1 'copy 0 or overwrite 1

Call Application.Utils.ExportCustom(sFileName, AucCustomOperationMode.aucCustomExportCatalog, atParamData)
End Sub

Now I want to develop a Sub for importing the catalog file, but it seems not to work properly. Can someone help me debug the source code ?
The sub has the following source code:

Public Sub CatalogImport(TempFolder As String)
Dim atParamData(0) As Aucotec.AucTPCCustomParam
Dim aMapping(0) As Aucotec.AucDictMappingData
Dim sFileName As String
Dim CatObj As ObjectItem, CatObjs As ObjectItems
Dim DicObj As ObjectItem, DicObjs As ObjectItems

Set CatObjs = Application.RootObject.Children("Catalogs".FindObjects(aucObjCatalog, aucSearchFlat, aucTypeUnspecified, aucAttrDesignation, aucCondEqual, CATALOG_NAME)
If CatObjs.count = 0 Then
Set CatObj = Application.RootObject.Children("Catalogs".NewChild(aucObjCatalog, aucTypeUnspecified)
CatObj.Attributes.ItemByID(aucAttrDesignation) = CATALOG_NAME
CatObj.Store
End If
Set CatObj = Application.RootObject.Children("Catalogs".Children(CATALOG_NAME)

Set DicObjs = Application.RootObject.Children("Dictionaries".FindObjects(aucObjDictionary, aucSearchFlat, aucTypeUnspecified, aucAttrDesignation, aucCondEqual, DICTIONARY_NAME)
If DicObjs.count = 0 Then
Stop
Else
Set DicObj = DicObjs(1)
End If

sFileName = TempFolder & "\" & CATALOG_NAME & ".ext"

aMapping(0).sbDictNameFrom = DicObj.Name
'aMapping(0).nDictIdFrom = 3
aMapping(0).assocTypeFrom = aucDictAssocTypePrimary
'aMapping(0).MapToDict = DicObj

atParamData(0).oOID = CatObj.ID
atParamData(0).nMethod = 1 'copy 0 or overwrite 1

Call Application.Utils.ImportCustom(sFileName, AucCustomOperationMode.aucCustomImportCatalog, aMapping, atParamData)
Kill sFileName
End Sub

Best regards,
Franco