public Scripting.Dictionary passDictionary2VBA(string callName)
 {
     Scripting.Dictionary dict = new Scripting.Dictionary();
     dict.Add("Apples", new DataTransferObject()
     {
         Id = callName
     });
     dict.Add("Oranges", new DataTransferObject()
     {
         Id = callName
     });
     return(dict);
 }
        //public string[] iColumns()
        //{
        //    return;
        //}
        public Scripting.Dictionary replaceKey(Hashtable dbHasTable, Scripting.Dictionary iParameters)
        {
            Scripting.Dictionary tmpDic = new Scripting.Dictionary();
            object[] lKeys = (object[])iParameters.Keys();
            object[] lItems = (object[])iParameters.Items();
            for (int i = 0; i < iParameters.Count; i++)
            {
                if (dbHasTable.ContainsKey((string)lKeys[i]))
                {
                    lKeys[i] = dbHasTable[lKeys[i]];
                }
            }

            for (int j = 0; j < iParameters.Count; j++)
            {
                tmpDic.Add(lKeys[j],lItems[j]);
            }
            return tmpDic;
        }