Function at 0x486ff0
Capabilities:
Access peb ldr_data
Get ntdll base address
Get process heap flags
Get process heap force flags

Disassembly:
push ebp
mov ebp, esp
sub esp, 0xc
push 0x406566
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0x8c
push ebx
push esi
push edi
mov dword [ebp - 0xc], esp
mov dword [ebp - 8], 0x4013a8
push 8
lea eax, [ebp - 0x44]
xor edi, edi
push 0x432930
push eax
mov dword [ebp - 0x20], edi
mov dword [ebp - 0x24], edi
mov dword [ebp - 0x28], edi
mov dword [ebp - 0x2c], edi
mov dword [ebp - 0x4c], edi
mov dword [ebp - 0x50], edi
mov dword [ebp - 0x60], edi
mov dword [ebp - 0x70], edi
mov dword [ebp - 0x80], edi
mov dword [ebp - 0x84], edi
call dword [sym.imp.MSVBVM60.DLL___vbaAryConstruct2]
mov ecx, dword [ebp - 0x38]
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
mov edx, 0x4328e8
call esi
mov ecx, dword [ebp - 0x38]
mov edx, 0x4328f0
add ecx, 4
call esi
mov eax, dword [ebp - 0x38]
mov edx, 0x4328f8
lea ecx, [eax + 8]
call esi
mov ecx, dword [ebp - 0x38]
mov edx, 0x432900
add ecx, 0xc
call esi
mov eax, dword [ebp - 0x38]
mov edx, 0x432908
lea ecx, [eax + 0x10]
call esi
mov ecx, dword [ebp - 0x38]
mov edx, 0x432910
add ecx, 0x14
call esi
mov eax, dword [ebp - 0x38]
mov edx, 0x432918
lea ecx, [eax + 0x18]
call esi
mov ecx, dword [ebp - 0x38]
mov edx, 0x432900
add ecx, 0x1c
call esi
mov eax, dword [ebp - 0x38]
mov edx, 0x432908
lea ecx, [eax + 0x20]
call esi
mov ecx, dword [ebp - 0x38]
mov edx, 0x432910
add ecx, 0x24
call esi
mov eax, dword [ebp - 0x38]
mov edx, 0x432920
lea ecx, [eax + 0x28]
call esi
mov ecx, dword [ebp - 0x38]
mov edx, 0x432900
add ecx, 0x2c
call esi
mov eax, dword [ebp - 0x38]
mov edx, 0x432908
lea ecx, [eax + 0x30]
call esi
mov ecx, dword [ebp - 0x38]
mov edx, 0x432910
add ecx, 0x34
call esi
mov eax, dword [ebp - 0x38]
mov edx, 0x432918
lea ecx, [eax + 0x38]
call esi
mov ebx, dword [ebp + 8]
fld qword [ebx]
fmul qword [0x4013a0]
fnstsw ax
test al, 0xd
jne 0x48733d
fstp qword [ebp - 0xa0]
mov ecx, dword [ebp - 0xa0]
mov edx, dword [ebp - 0x9c]
fld qword [ebp - 0xa0]
mov dword [ebx], ecx
mov dword [ebx + 4], edx
call dword [sym.imp.MSVBVM60.DLL___vbaFpI4]
cmp eax, edi
mov dword [ebp - 0x24], eax
jge 0x48715a
neg eax
mov dword [ebp - 0x24], eax
mov edx, 0x431874
lea ecx, [ebp - 0x2c]
call esi
lea ecx, [ebp - 0x80]
lea edx, [ebp - 0x60]
lea eax, [ebp - 0x24]
push ecx
push edx
mov dword [ebp - 0x78], eax
mov dword [ebp - 0x80], 0x4003
call dword [sym.imp.MSVBVM60.DLL_rtcVarStrFromVar]
lea eax, [ebp - 0x60]
lea ecx, [ebp - 0x70]
push eax
push ecx
call dword [sym.imp.MSVBVM60.DLL_rtcTrimVar]
lea edx, [ebp - 0x70]
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaStrVarMove]
mov edx, eax
lea ecx, [ebp - 0x20]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
lea eax, [ebp - 0x70]
lea ecx, [ebp - 0x60]
push eax
push ecx
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVarList]
mov edx, dword [ebp - 0x20]
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaLenBstr]
add esp, 0xc
push edx
call esi
mov ecx, eax
sub ecx, 1
jo 0x487342
call dword [sym.imp.MSVBVM60.DLL___vbaI2I4]
mov dword [ebp - 0x1c], eax
mov eax, dword [ebp - 0x20]
push eax
call esi
cmp eax, 0xf
jle 0x4871e7
mov dword [ebp - 0x1c], 0xe
mov dword [ebp - 0x8c], 1
cmp di, word [ebp - 0x1c]
jg 0x4872a1
mov eax, dword [ebp - 0x24]
mov ecx, 0xa
cdq
idiv ecx
mov ecx, edx
call dword [sym.imp.MSVBVM60.DLL___vbaI2I4]
mov ecx, dword [ebp - 0x24]
mov dword [ebp - 0x28], eax
mov eax, 0x66666667
imul ecx
sar edx, 2
mov eax, edx
movsx esi, di
shr eax, 0x1f
add edx, eax
cmp esi, 0xf
mov dword [ebp - 0x24], edx
jb 0x487236
call dword [sym.imp.MSVBVM60.DLL___vbaGenerateBoundsError]
lea ecx, [ebp - 0x28]
push ecx
call fcn.00486e30
mov edx, eax
lea ecx, [ebp - 0x4c]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov edx, dword [ebp - 0x38]
push eax
mov eax, dword [edx + esi*4]
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
push eax
call esi
mov edx, eax
lea ecx, [ebp - 0x50]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov ecx, dword [ebp - 0x2c]
push eax
push ecx
call esi
mov edx, eax
lea ecx, [ebp - 0x2c]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
lea edx, [ebp - 0x50]
lea eax, [ebp - 0x4c]
push edx
push eax
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
mov cx, word [ebp - 0x8c]
add esp, 0xc
add cx, di
jo 0x487342
mov edi, ecx
jmp 0x4871f1
fld qword [ebx]
fcomp qword [0x401398]
fnstsw ax
test ah, 1
je 0x4872ca
mov edx, dword [ebp - 0x2c]
push 0x432928
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
mov edx, eax
lea ecx, [ebp - 0x2c]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
wait
push 0x487327
jmp 0x487305
lea ecx, [ebp - 0x20]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
lea edx, [ebp - 0x84]
lea ecx, [ebp - 0x44]
push edx
push 0
mov dword [ebp - 0x84], ecx
call dword [sym.imp.MSVBVM60.DLL___vbaAryDestruct]
ret
jmp 0x40656c
call dword [sym.imp.MSVBVM60.DLL___vbaErrorOverflow]
nop
nop
nop
nop
nop
nop
nop
nop
push ebp
mov ebp, esp
sub esp, 0x18
push 0x406566
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
mov eax, 0x34
call sub.MSVBVM60.DLL___vbaChkstk
push ebx
push esi
push edi
mov dword [ebp - 0x18], esp
mov dword [ebp - 0x14], 0x4013b8
mov dword [ebp - 0x10], 0
mov dword [ebp - 0xc], 0
mov dword [ebp - 4], 1
mov dword [ebp - 4], 2
push 0xffffffffffffffff
call dword [sym.imp.MSVBVM60.DLL___vbaOnError]
mov dword [ebp - 4], 3
mov word [ebp - 0x40], 0xffff
push 0x4873c0
lea ecx, [ebp - 0x30]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
ret