Function at 0x40fd90
Capabilities:
Access peb ldr_data
Check for peb ntglobalflag flag
Get number of processors
Get process heap flags
Get process heap force flags
Resolve function by parsing pe exports

Disassembly:
push ebp
mov ebp, esp
sub esp, 8
push 0x401986
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0x1ac
push ebx
push esi
push edi
mov dword [ebp - 8], esp
mov dword [ebp - 4], 0x401328
mov edx, dword [ebp + 8]
xor ebx, ebx
lea ecx, [ebp - 0x20]
mov dword [ebp - 0x1c], ebx
mov dword [ebp - 0x20], ebx
mov dword [ebp - 0x30], ebx
mov dword [ebp - 0x40], ebx
mov dword [ebp - 0x50], ebx
mov dword [ebp - 0x70], ebx
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
lea ecx, [ebp - 0x50]
lea edx, [ebp - 0x30]
lea eax, [ebp - 0x20]
push ecx
push edx
mov dword [ebp - 0x48], eax
mov dword [ebp - 0x50], 0x4008
call dword [sym.imp.MSVBVM60.DLL_rtcUpperCaseVar]
lea eax, [ebp - 0x30]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaStrVarMove]
mov edx, eax
lea ecx, [ebp - 0x20]
call dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
lea ecx, [ebp - 0x30]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
mov ecx, dword [ebp - 0x20]
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaLenBstr]
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaFpI4]
mov dword [ebp - 0x78], eax
mov esi, 1
cmp esi, dword [ebp - 0x78]
jg 0x4105c5
mov ecx, dword [ebp - 0x20]
lea eax, [ebp - 0x30]
lea edx, [ebp - 0x20]
push eax
push ecx
mov dword [ebp - 0x28], 1
mov dword [ebp - 0x30], 2
mov dword [ebp - 0x48], edx
mov dword [ebp - 0x50], 0x4008
call dword [sym.imp.MSVBVM60.DLL___vbaLenBstr]
sub eax, esi
lea edx, [ebp - 0x50]
jo 0x410612
add eax, 1
jo 0x410612
push eax
lea eax, [ebp - 0x40]
push edx
push eax
call dword [sym.imp.MSVBVM60.DLL_rtcMidCharVar]
lea edx, [ebp - 0x40]
lea ecx, [ebp - 0x70]
call dword [sym.imp.MSVBVM60.DLL___vbaVarMove]
lea ecx, [ebp - 0x30]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
lea ecx, [ebp - 0x70]
lea edx, [ebp - 0x50]
push ecx
push edx
mov dword [ebp - 0x48], 0x408bb0
mov dword [ebp - 0x50], 0x8008
call dword [sym.imp.MSVBVM60.DLL___vbaVarTstEq]
test ax, ax
je 0x40fefd
mov eax, esi
sub eax, 1
jo 0x410612
mov dword [ebp - 0x80], eax
fild dword [ebp - 0x80]
fstp qword [ebp - 0x88]
mov ecx, dword [ebp - 0x84]
mov edx, dword [ebp - 0x88]
push ecx
push edx
push 0x40300000
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaPowerR8]
fstp st(0)
fild dword [ebp - 0x1c]
fstp qword [ebp - 0x90]
fld qword [ebp - 0x90]
jmp 0x4105a8
lea eax, [ebp - 0x70]
lea ecx, [ebp - 0x50]
push eax
push ecx
mov dword [ebp - 0x48], 0x40833c
mov dword [ebp - 0x50], 0x8008
call dword [sym.imp.MSVBVM60.DLL___vbaVarTstEq]
test ax, ax
je 0x40ff6a
mov edx, esi
sub edx, 1
jo 0x410612
mov dword [ebp - 0x94], edx
fild dword [ebp - 0x94]
fstp qword [ebp - 0x9c]
mov eax, dword [ebp - 0x98]
mov ecx, dword [ebp - 0x9c]
push eax
push ecx
push 0x40300000
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaPowerR8]
fild dword [ebp - 0x1c]
fstp qword [ebp - 0xa4]
fadd qword [ebp - 0xa4]
jmp 0x4105a8
lea edx, [ebp - 0x70]
lea eax, [ebp - 0x50]
push edx
push eax
mov dword [ebp - 0x48], 0x408348
mov dword [ebp - 0x50], 0x8008
call dword [sym.imp.MSVBVM60.DLL___vbaVarTstEq]
test ax, ax
je 0x40ffd9
mov ecx, esi
sub ecx, 1
jo 0x410612
mov dword [ebp - 0xa8], ecx
fild dword [ebp - 0xa8]
fstp qword [ebp - 0xb0]
mov edx, dword [ebp - 0xac]
mov eax, dword [ebp - 0xb0]
push edx
push eax
push 0x40300000
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaPowerR8]
fadd st(0), st(0)
fild dword [ebp - 0x1c]
fstp qword [ebp - 0xb8]
fadd qword [ebp - 0xb8]
jmp 0x4105a8
lea ecx, [ebp - 0x70]
lea edx, [ebp - 0x50]
push ecx
push edx
mov dword [ebp - 0x48], 0x408bb8
mov dword [ebp - 0x50], 0x8008
call dword [sym.imp.MSVBVM60.DLL___vbaVarTstEq]
test ax, ax
je 0x41004c
mov eax, esi
sub eax, 1
jo 0x410612
mov dword [ebp - 0xbc], eax
fild dword [ebp - 0xbc]
fstp qword [ebp - 0xc4]
mov ecx, dword [ebp - 0xc0]
mov edx, dword [ebp - 0xc4]
push ecx
push edx
push 0x40300000
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaPowerR8]
fmul qword [0x401320]
fild dword [ebp - 0x1c]
fstp qword [ebp - 0xcc]
fadd qword [ebp - 0xcc]
jmp 0x4105a8
lea eax, [ebp - 0x70]
lea ecx, [ebp - 0x50]
push eax
push ecx
mov dword [ebp - 0x48], 0x408bc0
mov dword [ebp - 0x50], 0x8008
call dword [sym.imp.MSVBVM60.DLL___vbaVarTstEq]
test ax, ax
je 0x4100bf
mov edx, esi
sub edx, 1
jo 0x410612
mov dword [ebp - 0xd0], edx
fild dword [ebp - 0xd0]
fstp qword [ebp - 0xd8]
mov eax, dword [ebp - 0xd4]
mov ecx, dword [ebp - 0xd8]
push eax
push ecx
push 0x40300000
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaPowerR8]
fmul qword [0x401318]
fild dword [ebp - 0x1c]
fstp qword [ebp - 0xe0]
fadd qword [ebp - 0xe0]
jmp 0x4105a8
lea edx, [ebp - 0x70]
lea eax, [ebp - 0x50]
push edx
push eax
mov dword [ebp - 0x48], 0x408bc8
mov dword [ebp - 0x50], 0x8008
call dword [sym.imp.MSVBVM60.DLL___vbaVarTstEq]
test ax, ax
je 0x410132
mov ecx, esi
sub ecx, 1
jo 0x410612
mov dword [ebp - 0xe4], ecx
fild dword [ebp - 0xe4]
fstp qword [ebp - 0xec]
mov edx, dword [ebp - 0xe8]
mov eax, dword [ebp - 0xec]
push edx
push eax
push 0x40300000
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaPowerR8]
fmul qword [0x401310]
fild dword [ebp - 0x1c]
fstp qword [ebp - 0xf4]
fadd qword [ebp - 0xf4]
jmp 0x4105a8
lea ecx, [ebp - 0x70]
lea edx, [ebp - 0x50]
push ecx
push edx
mov dword [ebp - 0x48], 0x408bd0
mov dword [ebp - 0x50], 0x8008
call dword [sym.imp.MSVBVM60.DLL___vbaVarTstEq]
test ax, ax
je 0x4101a5
mov eax, esi
sub eax, 1
jo 0x410612
mov dword [ebp - 0xf8], eax
fild dword [ebp - 0xf8]
fstp qword [ebp - 0x100]
mov ecx, dword [ebp - 0xfc]
mov edx, dword [ebp - 0x100]
push ecx
push edx
push 0x40300000
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaPowerR8]
fmul qword [0x401308]
fild dword [ebp - 0x1c]
fstp qword [ebp - 0x108]
fadd qword [ebp - 0x108]
jmp 0x4105a8
lea eax, [ebp - 0x70]
lea ecx, [ebp - 0x50]
push eax
push ecx
mov dword [ebp - 0x48], 0x40832c
mov dword [ebp - 0x50], 0x8008
call dword [sym.imp.MSVBVM60.DLL___vbaVarTstEq]
test ax, ax
je 0x410218
mov edx, esi
sub edx, 1
jo 0x410612
mov dword [ebp - 0x10c], edx
fild dword [ebp - 0x10c]
fstp qword [ebp - 0x114]
mov eax, dword [ebp - 0x110]
mov ecx, dword [ebp - 0x114]
push eax
push ecx
push 0x40300000
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaPowerR8]
fmul qword [0x401300]
fild dword [ebp - 0x1c]
fstp qword [ebp - 0x11c]
fadd qword [ebp - 0x11c]
jmp 0x4105a8
lea edx, [ebp - 0x70]
lea eax, [ebp - 0x50]
push edx
push eax
mov dword [ebp - 0x48], 0x408334
mov dword [ebp - 0x50], 0x8008
call dword [sym.imp.MSVBVM60.DLL___vbaVarTstEq]
test ax, ax
je 0x41028b
mov ecx, esi
sub ecx, 1
jo 0x410612
mov dword [ebp - 0x120], ecx
fild dword [ebp - 0x120]
fstp qword [ebp - 0x128]
mov edx, dword [ebp - 0x124]
mov eax, dword [ebp - 0x128]
push edx
push eax
push 0x40300000
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaPowerR8]
fmul qword [0x4012f8]
fild dword [ebp - 0x1c]
fstp qword [ebp - 0x130]
fadd qword [ebp - 0x130]
jmp 0x4105a8
lea ecx, [ebp - 0x70]
lea edx, [ebp - 0x50]
push ecx
push edx
mov dword [ebp - 0x48], 0x408bd8
mov dword [ebp - 0x50], 0x8008
call dword [sym.imp.MSVBVM60.DLL___vbaVarTstEq]
test ax, ax
je 0x4102fe
mov eax, esi
sub eax, 1
jo 0x410612
mov dword [ebp - 0x134], eax
fild dword [ebp - 0x134]
fstp qword [ebp - 0x13c]
mov ecx, dword [ebp - 0x138]
mov edx, dword [ebp - 0x13c]
push ecx
push edx
push 0x40300000
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaPowerR8]
fmul qword [0x4012f0]
fild dword [ebp - 0x1c]
fstp qword [ebp - 0x144]
fadd qword [ebp - 0x144]
jmp 0x4105a8
lea eax, [ebp - 0x70]
lea ecx, [ebp - 0x50]
push eax
push ecx
mov dword [ebp - 0x48], 0x408be0
mov dword [ebp - 0x50], 0x8008
call dword [sym.imp.MSVBVM60.DLL___vbaVarTstEq]
test ax, ax
je 0x410371
mov edx, esi
sub edx, 1
jo 0x410612
mov dword [ebp - 0x148], edx
fild dword [ebp - 0x148]
fstp qword [ebp - 0x150]
mov eax, dword [ebp - 0x14c]
mov ecx, dword [ebp - 0x150]
push eax
push ecx
push 0x40300000
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaPowerR8]
fmul qword [0x4012e8]
fild dword [ebp - 0x1c]
fstp qword [ebp - 0x158]
fadd qword [ebp - 0x158]
jmp 0x4105a8
lea edx, [ebp - 0x70]
lea eax, [ebp - 0x50]
push edx
push eax
mov dword [ebp - 0x48], 0x408be8
mov dword [ebp - 0x50], 0x8008
call dword [sym.imp.MSVBVM60.DLL___vbaVarTstEq]
test ax, ax
je 0x4103e4
mov ecx, esi
sub ecx, 1
jo 0x410612
mov dword [ebp - 0x15c], ecx
fild dword [ebp - 0x15c]
fstp qword [ebp - 0x164]
mov edx, dword [ebp - 0x160]
mov eax, dword [ebp - 0x164]
push edx
push eax
push 0x40300000
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaPowerR8]
fmul qword [0x4012e0]
fild dword [ebp - 0x1c]
fstp qword [ebp - 0x16c]
fadd qword [ebp - 0x16c]
jmp 0x4105a8
lea ecx, [ebp - 0x70]
lea edx, [ebp - 0x50]
push ecx
push edx
mov dword [ebp - 0x48], 0x408bf0
mov dword [ebp - 0x50], 0x8008
call dword [sym.imp.MSVBVM60.DLL___vbaVarTstEq]
test ax, ax
je 0x410457
mov eax, esi
sub eax, 1
jo 0x410612
mov dword [ebp - 0x170], eax
fild dword [ebp - 0x170]
fstp qword [ebp - 0x178]
mov ecx, dword [ebp - 0x174]
mov edx, dword [ebp - 0x178]
push ecx
push edx
push 0x40300000
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaPowerR8]
fmul qword [0x4012d8]
fild dword [ebp - 0x1c]
fstp qword [ebp - 0x180]
fadd qword [ebp - 0x180]
jmp 0x4105a8
lea eax, [ebp - 0x70]
lea ecx, [ebp - 0x50]
push eax
push ecx
mov dword [ebp - 0x48], 0x408bf8
mov dword [ebp - 0x50], 0x8008
call dword [sym.imp.MSVBVM60.DLL___vbaVarTstEq]
test ax, ax
je 0x4104ca
mov edx, esi
sub edx, 1
jo 0x410612
mov dword [ebp - 0x184], edx
fild dword [ebp - 0x184]
fstp qword [ebp - 0x18c]
mov eax, dword [ebp - 0x188]
mov ecx, dword [ebp - 0x18c]
push eax
push ecx
push 0x40300000
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaPowerR8]
fmul qword [0x4012d0]
fild dword [ebp - 0x1c]
fstp qword [ebp - 0x194]
fadd qword [ebp - 0x194]
jmp 0x4105a8
lea edx, [ebp - 0x70]
lea eax, [ebp - 0x50]
push edx
push eax
mov dword [ebp - 0x48], 0x408c00
mov dword [ebp - 0x50], 0x8008
call dword [sym.imp.MSVBVM60.DLL___vbaVarTstEq]
test ax, ax
je 0x41053a
mov ecx, esi
sub ecx, 1
jo 0x410612
mov dword [ebp - 0x198], ecx
fild dword [ebp - 0x198]
fstp qword [ebp - 0x1a0]
mov edx, dword [ebp - 0x19c]
mov eax, dword [ebp - 0x1a0]
push edx
push eax
push 0x40300000
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaPowerR8]
fmul qword [0x4012c8]
fild dword [ebp - 0x1c]
fstp qword [ebp - 0x1a8]
fadd qword [ebp - 0x1a8]
jmp 0x4105a8
lea ecx, [ebp - 0x70]
lea edx, [ebp - 0x50]
push ecx
push edx
mov dword [ebp - 0x48], 0x408c08
mov dword [ebp - 0x50], 0x8008
call dword [sym.imp.MSVBVM60.DLL___vbaVarTstEq]
test ax, ax
je 0x4105b5
mov eax, esi
sub eax, 1
jo 0x410612
mov dword [ebp - 0x1ac], eax
fild dword [ebp - 0x1ac]
fstp qword [ebp - 0x1b4]
mov ecx, dword [ebp - 0x1b0]
mov edx, dword [ebp - 0x1b4]
push ecx
push edx
push 0x40300000
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaPowerR8]
fmul qword [0x4012c0]
fild dword [ebp - 0x1c]
fstp qword [ebp - 0x1bc]
fadd qword [ebp - 0x1bc]
fnstsw ax
test al, 0xd
jne 0x41060d
call edi
mov ebx, eax
mov dword [ebp - 0x1c], ebx
mov eax, 1
add eax, esi
jo 0x410612
mov esi, eax
jmp 0x40fe2d
mov dword [ebp - 0x18], ebx
push 0x4105f7
wait
jmp 0x4105e4
lea ecx, [ebp - 0x70]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
lea ecx, [ebp - 0x20]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
ret
jmp 0x40198c
call dword [sym.imp.MSVBVM60.DLL___vbaErrorOverflow]
nop
nop
nop
nop
nop
nop
nop
nop