完全找不到头绪！还请大家多多帮忙！

怎么没的人啊？ 自己顶下吧,我用ida F5出了关键代码，
  while ( v3 )
  {
    v72 = (wchar_t *)&v47;
    v63 = 16396;
    v73 = 1;
    v59 = 2;
    v16 = _vbaI4Var(&v47);
    rtcMidCharVar(&v60, &v56, v16, v17);
    _vbaVarIndexStore(&v51, 1, v60, v74, v75, v76, v63, v77, v72, v78);
    _vbaFreeVarList(2, &v59, &v60, v18, v19, v20);
    v3 = _vbaVarForNext(&v47, &v65, &v66);
  }
  v71 = (int *)1;
  v72 = (wchar_t *)1;
  v62 = 2;
  v63 = 2;
  v7 = _vbaVarForInit(&v47, &v67, &v68, &v63, &v55, &v62);
  while ( v7 )
  {
    v62 = 16396;
    v71 = &v47;
    v72 = L"&H";
    v63 = 8;
    v21 = _vbaVarIndexLoad(&v59, &v51, 1, 16396, v79, &v47, v80);
    v22 = _vbaVarCat(&v60, v21, &v63);
    v23 = _vbaStrVarVal(&v58, v22);
    rtcR8ValFromBstr(v23);
    __asm { fstp    [ebp+var_120] }
    v64 = 5;
    _vbaVarMove(&v54, &v64);
    _vbaFreeStr(&v58);
    _vbaFreeVarList(2, &v59, &v60, v4, v5, v6);
    v24 = _vbaVarTstGe(&v47, &v54);
    v71 = &v47;
    v62 = 16396;
    if ( v24 )
    {
      v25 = _vbaVarIndexLoad(&v59, &v51, 1, 16396, v79, &v47, v80);
      _vbaVarMove(&v52, v25);
      v63 = 16396;
      v72 = (wchar_t *)&v47;
      v26 = v77;
      v27 = v78;
      v28 = _vbaVarAdd(&v59, &v54, &v47);
      v29 = _vbaVarIndexLoad(
              &v60,
              &v51,
              1,
              *(_DWORD *)v28,
              *(_DWORD *)(v28 + 4),
              *(_DWORD *)(v28 + 8),
              *(_DWORD *)(v28 + 12));
      _vbaVarIndexStore(
        &v51,
        1,
        *(_DWORD *)v29,
        *(_DWORD *)(v29 + 4),
        *(_DWORD *)(v29 + 8),
        *(_DWORD *)(v29 + 12),
        16396,
        v26,
        &v47,
        v27);
      _vbaFreeVarList(2, &v59, &v60, v30, v31, v32);
      v33 = _vbaVarAdd(&v59, &v54, &v47);
      _vbaVarIndexStore(
        &v51,
        1,
        v52,
        v82,
        v83,
        v84,
        *(_DWORD *)v33,
        *(_DWORD *)(v33 + 4),
        *(_DWORD *)(v33 + 8),
        *(_DWORD *)(v33 + 12));
      _vbaFreeVar(&v59);
    }
    else
    {
      v34 = _vbaVarIndexLoad(&v59, &v51, 1, 16396, v79, &v47, v80);
      _vbaVarMove(&v52, v34);
      v63 = 16396;
      v72 = (wchar_t *)&v47;
      v35 = v77;
      v36 = v78;
      v37 = _vbaVarSub(&v59, &v54, &v47);
      v38 = _vbaVarIndexLoad(
              &v60,
              &v51,
              1,
              *(_DWORD *)v37,
              *(_DWORD *)(v37 + 4),
              *(_DWORD *)(v37 + 8),
              *(_DWORD *)(v37 + 12));
      _vbaVarIndexStore(
        &v51,
        1,
        *(_DWORD *)v38,
        *(_DWORD *)(v38 + 4),
        *(_DWORD *)(v38 + 8),
        *(_DWORD *)(v38 + 12),
        16396,
        v35,
        &v47,
        v36);
      _vbaFreeVar(&v60);
      v39 = _vbaVarSub(&v59, &v54, &v47);
      _vbaVarIndexStore(
        &v51,
        1,
        v52,
        v82,
        v83,
        v84,
        *(_DWORD *)v39,
        *(_DWORD *)(v39 + 4),
        *(_DWORD *)(v39 + 8),
        *(_DWORD *)(v39 + 12));
    }
    v7 = _vbaVarForNext(&v47, &v67, &v68);
  }
  v71 = &dword_409874;
  v62 = 8;
  _vbaVarCopy(&v52, &v62);
  v62 = 2;
  v63 = 2;
  v71 = (int *)1;
  v72 = (wchar_t *)1;
  v8 = _vbaVarForInit(&v47, &v69, &v70, &v63, &v55, &v62);
  while ( v8 )
  {
    v62 = 16396;
    v71 = &v47;
    v40 = _vbaVarIndexLoad(&v59, &v51, 1, 16396, v79, &v47, v80);
    v41 = _vbaVarCat(&v60, v40, &v52);
    _vbaVarMove(&v52, v41);
    _vbaFreeVar(&v59);
    v8 = _vbaVarForNext(&v47, &v69, &v70);
  }