Function at 0x6213dc
Capabilities:
Parse pe header

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x18
push 0x40e906
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
mov eax, 0x94
call sub.MSVBVM60.DLL___vbaChkstk
push ebx
push esi
push edi
mov dword [ebp - 0x18], esp
mov dword [ebp - 0x14], 0x402940
mov dword [ebp - 0x10], 0
mov dword [ebp - 0xc], 0
mov dword [ebp - 4], 1
mov dword [ebp - 4], 2
push 0xffffffffffffffff
call sub.MSVBVM60.DLL___vbaOnError
mov dword [ebp - 4], 3
push 1
mov eax, dword [ebp + 8]
push dword [eax]
push 0x42a594
push 0
call sub.MSVBVM60.DLL___vbaInStr
test eax, eax
jne 0x6215f5
mov dword [ebp - 4], 4
mov eax, dword [ebp + 8]
mov edx, dword [eax]
lea ecx, [ebp - 0x2c]
call sub.MSVBVM60.DLL___vbaStrCopy
mov dword [ebp - 4], 5
push 1
push dword [ebp - 0x2c]
push 0x429384
push 0
call sub.MSVBVM60.DLL___vbaInStr
test eax, eax
jne 0x6214aa
mov dword [ebp - 4], 6
mov eax, dword [ebp + 8]
push dword [eax]
call sub.MSVBVM60.DLL_rtcR8ValFromBstr
fmul qword [0x402930]
fstp qword [ebp - 0x38]
fnstsw ax
test al, 0xd
jne 0x6218f1
jmp 0x6215f0
mov dword [ebp - 4], 8
lea eax, [ebp - 0x2c]
mov dword [ebp - 0x54], eax
mov dword [ebp - 0x5c], 0x4008
push 1
push dword [ebp - 0x2c]
push 0x429384
push 0
call sub.MSVBVM60.DLL___vbaInStr
sub eax, 1
jo 0x6218f6
push eax
lea eax, [ebp - 0x5c]
push eax
lea eax, [ebp - 0x4c]
push eax
call sub.MSVBVM60.DLL_rtcLeftCharVar
lea eax, [ebp - 0x4c]
push eax
call sub.MSVBVM60.DLL___vbaStrVarMove
mov edx, eax
lea ecx, [ebp - 0x24]
call sub.MSVBVM60.DLL___vbaStrMove
lea ecx, [ebp - 0x4c]
call sub.MSVBVM60.DLL___vbaFreeVar
mov dword [ebp - 4], 9
lea eax, [ebp - 0x2c]
mov dword [ebp - 0x54], eax
mov dword [ebp - 0x5c], 0x4008
push dword [ebp - 0x2c]
call sub.MSVBVM60.DLL___vbaLenBstr
mov esi, eax
push 1
push dword [ebp - 0x2c]
push 0x429384
push 0
call sub.MSVBVM60.DLL___vbaInStr
sub esi, eax
jo 0x6218f6
push esi
lea eax, [ebp - 0x5c]
push eax
lea eax, [ebp - 0x4c]
push eax
call sub.MSVBVM60.DLL_rtcRightCharVar
lea eax, [ebp - 0x4c]
push eax
call sub.MSVBVM60.DLL___vbaStrVarMove
mov edx, eax
lea ecx, [ebp - 0x28]
call sub.MSVBVM60.DLL___vbaStrMove
lea ecx, [ebp - 0x4c]
call sub.MSVBVM60.DLL___vbaFreeVar
mov dword [ebp - 4], 0xa
push dword [ebp - 0x28]
call sub.MSVBVM60.DLL_rtcR8ValFromBstr
call sub.MSVBVM60.DLL___vbaFpR8
fcomp qword [0x402938]
fnstsw ax
sahf
jne 0x62158e
mov dword [ebp - 4], 0xb
fldz
fstp qword [ebp - 0x38]
jmp 0x6215f0
mov dword [ebp - 4], 0xd
push dword [ebp - 0x28]
call sub.MSVBVM60.DLL_rtcR8ValFromBstr
fstp qword [ebp - 0x64]
push dword [ebp - 0x24]
call sub.MSVBVM60.DLL_rtcR8ValFromBstr
call sub.MSVBVM60.DLL___vbaFPFix
fstp qword [ebp - 0x88]
fld qword [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaFPFix
cmp dword [section..data], 0
jne 0x6215cc
fdivr qword [ebp - 0x88]
jmp 0x6215dd
push dword [ebp - 0x84]
push dword [ebp - 0x88]
call sub.MSVBVM60.DLL__adj_fdivr_m64
fmul qword [0x402930]
fstp qword [ebp - 0x38]
fnstsw ax
test al, 0xd
jne 0x6218f1
jmp 0x6218ab
mov dword [ebp - 4], 0x11
mov eax, dword [ebp + 8]
mov dword [ebp - 0x54], eax
mov dword [ebp - 0x5c], 0x4008
push 1
mov eax, dword [ebp + 8]
push dword [eax]
push 0x42a594
push 0
call sub.MSVBVM60.DLL___vbaInStr
sub eax, 1
jo 0x6218f6
push eax
lea eax, [ebp - 0x5c]
push eax
lea eax, [ebp - 0x4c]
push eax
call sub.MSVBVM60.DLL_rtcLeftCharVar
lea eax, [ebp - 0x4c]
push eax
lea eax, [ebp - 0x3c]
push eax
call sub.MSVBVM60.DLL___vbaStrVarVal
push eax
call sub.MSVBVM60.DLL_rtcR8ValFromBstr
call sub.MSVBVM60.DLL___vbaR8FixI2
mov word [ebp - 0x30], ax
lea ecx, [ebp - 0x3c]
call sub.MSVBVM60.DLL___vbaFreeStr
lea ecx, [ebp - 0x4c]
call sub.MSVBVM60.DLL___vbaFreeVar
mov dword [ebp - 4], 0x12
mov eax, dword [ebp + 8]
mov dword [ebp - 0x54], eax
mov dword [ebp - 0x5c], 0x4008
mov eax, dword [ebp + 8]
push dword [eax]
call sub.MSVBVM60.DLL___vbaLenBstr
mov esi, eax
push 1
mov eax, dword [ebp + 8]
push dword [eax]
push 0x42a594
push 0
call sub.MSVBVM60.DLL___vbaInStr
sub esi, eax
jo 0x6218f6
push esi
lea eax, [ebp - 0x5c]
push eax
lea eax, [ebp - 0x4c]
push eax
call sub.MSVBVM60.DLL_rtcRightCharVar
lea eax, [ebp - 0x4c]
push eax
call sub.MSVBVM60.DLL___vbaStrVarMove
mov edx, eax
lea ecx, [ebp - 0x2c]
call sub.MSVBVM60.DLL___vbaStrMove
lea ecx, [ebp - 0x4c]
call sub.MSVBVM60.DLL___vbaFreeVar
mov dword [ebp - 4], 0x13
push 1
push dword [ebp - 0x2c]
push 0x429384
push 0
call sub.MSVBVM60.DLL___vbaInStr
test eax, eax
jne 0x62171a
mov dword [ebp - 4], 0x14
movsx eax, word [ebp - 0x30]
mov dword [ebp - 0x8c], eax
fild dword [ebp - 0x8c]
fstp qword [ebp - 0x94]
fld qword [ebp - 0x94]
fmul qword [0x402930]
fstp qword [ebp - 0x38]
fnstsw ax
test al, 0xd
jne 0x6218f1
jmp 0x6218ab
mov dword [ebp - 4], 0x16
lea eax, [ebp - 0x2c]
mov dword [ebp - 0x54], eax
mov dword [ebp - 0x5c], 0x4008
push 1
push dword [ebp - 0x2c]
push 0x429384
push 0
call sub.MSVBVM60.DLL___vbaInStr
sub eax, 1
jo 0x6218f6
push eax
lea eax, [ebp - 0x5c]
push eax
lea eax, [ebp - 0x4c]
push eax
call sub.MSVBVM60.DLL_rtcLeftCharVar
lea eax, [ebp - 0x4c]
push eax
call sub.MSVBVM60.DLL___vbaStrVarMove
mov edx, eax
lea ecx, [ebp - 0x24]
call sub.MSVBVM60.DLL___vbaStrMove
lea ecx, [ebp - 0x4c]
call sub.MSVBVM60.DLL___vbaFreeVar
mov dword [ebp - 4], 0x17
lea eax, [ebp - 0x2c]
mov dword [ebp - 0x54], eax
mov dword [ebp - 0x5c], 0x4008
push dword [ebp - 0x2c]
call sub.MSVBVM60.DLL___vbaLenBstr
mov esi, eax
push 1
push dword [ebp - 0x2c]
push 0x429384
push 0
call sub.MSVBVM60.DLL___vbaInStr
sub esi, eax
jo 0x6218f6
push esi
lea eax, [ebp - 0x5c]
push eax
lea eax, [ebp - 0x4c]
push eax
call sub.MSVBVM60.DLL_rtcRightCharVar
lea eax, [ebp - 0x4c]
push eax
call sub.MSVBVM60.DLL___vbaStrVarMove
mov edx, eax
lea ecx, [ebp - 0x28]
call sub.MSVBVM60.DLL___vbaStrMove
lea ecx, [ebp - 0x4c]
call sub.MSVBVM60.DLL___vbaFreeVar
mov dword [ebp - 4], 0x18
push dword [ebp - 0x28]
call sub.MSVBVM60.DLL_rtcR8ValFromBstr
call sub.MSVBVM60.DLL___vbaFpR8
fcomp qword [0x402938]
fnstsw ax
sahf
jne 0x62182b
mov dword [ebp - 4], 0x19
movsx eax, word [ebp - 0x30]
mov dword [ebp - 0x98], eax
fild dword [ebp - 0x98]
fstp qword [ebp - 0xa0]
fld qword [ebp - 0xa0]
fmul qword [0x402930]
fstp qword [ebp - 0x38]
fnstsw ax
test al, 0xd
jne 0x6218f1
jmp 0x6218ab
mov dword [ebp - 4], 0x1b
push dword [ebp - 0x24]
call sub.MSVBVM60.DLL_rtcR8ValFromBstr
fstp qword [ebp - 0x64]
push dword [ebp - 0x28]
call sub.MSVBVM60.DLL_rtcR8ValFromBstr
fstp qword [ebp - 0x6c]
movsx eax, word [ebp - 0x30]
mov dword [ebp - 0xa4], eax
fild dword [ebp - 0xa4]
fstp qword [ebp - 0xac]
fld qword [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaFPFix
fstp qword [ebp - 0xb4]
fld qword [ebp - 0x6c]
call sub.MSVBVM60.DLL___vbaFPFix
cmp dword [section..data], 0
jne 0x621885
fdivr qword [ebp - 0xb4]
jmp 0x621896
push dword [ebp - 0xb0]
push dword [ebp - 0xb4]
call sub.MSVBVM60.DLL__adj_fdivr_m64
fadd qword [ebp - 0xac]
fmul qword [0x402930]
fstp qword [ebp - 0x38]
fnstsw ax
test al, 0xd
jne 0x6218f1
wait
push 0x6218dd
jmp 0x6218c4
lea ecx, [ebp - 0x24]
call sub.MSVBVM60.DLL___vbaFreeStr
lea ecx, [ebp - 0x28]
call sub.MSVBVM60.DLL___vbaFreeStr
lea ecx, [ebp - 0x2c]
call sub.MSVBVM60.DLL___vbaFreeStr
ret
jmp 0x40e90c
call sub.MSVBVM60.DLL___vbaErrorOverflow