Function at 0x422f41
Capabilities:
Parse pe header

Disassembly:
push ebp
mov ebp, esp
push ecx
push ecx
push 0x4038c6
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
mov eax, 0x88
call sub.MSVBVM60.DLL___vbaChkstk
push ebx
push esi
push edi
mov dword [ebp - 8], esp
mov dword [ebp - 4], 0x402198
lea eax, [ebp - 0x48]
push eax
call sub.MSVBVM60.DLL_rtcGetPresentDate
mov dword [ebp - 0x70], 0x40e9bc
mov dword [ebp - 0x78], 8
lea edx, [ebp - 0x78]
lea ecx, [ebp - 0x58]
call sub.MSVBVM60.DLL___vbaVarDup
push 1
push 1
lea eax, [ebp - 0x58]
push eax
lea eax, [ebp - 0x48]
push eax
lea eax, [ebp - 0x68]
push eax
call sub.MSVBVM60.DLL_rtcVarFromFormatVar
lea eax, [ebp - 0x68]
push eax
call sub.MSVBVM60.DLL___vbaI2Var
mov word [ebp - 0x18], ax
lea eax, [ebp - 0x68]
push eax
lea eax, [ebp - 0x58]
push eax
lea eax, [ebp - 0x48]
push eax
push 3
call sub.MSVBVM60.DLL___vbaFreeVarList
add esp, 0x10
push dword [ebp + 8]
call fcn.004362ba
mov dword [ebp - 0x40], eax
mov dword [ebp - 0x48], 8
lea edx, [ebp - 0x48]
lea ecx, [ebp - 0x28]
call sub.MSVBVM60.DLL___vbaVarMove
mov dword [ebp - 0x70], 0x40e9a4
mov dword [ebp - 0x78], 8
and dword [ebp - 0x80], 0
mov dword [ebp - 0x88], 0x8002
push 1
lea eax, [ebp - 0x28]
push eax
lea eax, [ebp - 0x78]
push eax
push 1
lea eax, [ebp - 0x48]
push eax
call sub.MSVBVM60.DLL___vbaInStrVar
push eax
lea eax, [ebp - 0x88]
push eax
call sub.MSVBVM60.DLL___vbaVarTstGt
mov word [ebp - 0x8c], ax
lea ecx, [ebp - 0x48]
call sub.MSVBVM60.DLL___vbaFreeVar
movsx eax, word [ebp - 0x8c]
test eax, eax
je 0x42304c
mov edx, 0x40e9a4
lea ecx, [ebp - 0x2c]
call sub.MSVBVM60.DLL___vbaStrCopy
mov dword [ebp - 0x70], 0x40eb94
mov dword [ebp - 0x78], 8
and dword [ebp - 0x80], 0
mov dword [ebp - 0x88], 0x8002
push 1
lea eax, [ebp - 0x28]
push eax
lea eax, [ebp - 0x78]
push eax
push 1
lea eax, [ebp - 0x48]
push eax
call sub.MSVBVM60.DLL___vbaInStrVar
push eax
lea eax, [ebp - 0x88]
push eax
call sub.MSVBVM60.DLL___vbaVarTstGt
mov word [ebp - 0x8c], ax
lea ecx, [ebp - 0x48]
call sub.MSVBVM60.DLL___vbaFreeVar
movsx eax, word [ebp - 0x8c]
test eax, eax
je 0x4230b1
mov edx, 0x40eb94
lea ecx, [ebp - 0x2c]
call sub.MSVBVM60.DLL___vbaStrCopy
mov dword [ebp - 0x70], 0x40cd30
mov dword [ebp - 0x78], 8
and dword [ebp - 0x80], 0
mov dword [ebp - 0x88], 0x8002
push 1
lea eax, [ebp - 0x28]
push eax
lea eax, [ebp - 0x78]
push eax
push 1
lea eax, [ebp - 0x48]
push eax
call sub.MSVBVM60.DLL___vbaInStrVar
push eax
lea eax, [ebp - 0x88]
push eax
call sub.MSVBVM60.DLL___vbaVarTstGt
mov word [ebp - 0x8c], ax
lea ecx, [ebp - 0x48]
call sub.MSVBVM60.DLL___vbaFreeVar
movsx eax, word [ebp - 0x8c]
test eax, eax
je 0x423116
mov edx, 0x40cd30
lea ecx, [ebp - 0x2c]
call sub.MSVBVM60.DLL___vbaStrCopy
push dword [ebp - 0x2c]
push 0x40a858
call sub.MSVBVM60.DLL___vbaStrCmp
test eax, eax
jne 0x423164
lea eax, [ebp - 0x28]
push eax
lea eax, [ebp - 0x38]
push eax
call sub.MSVBVM60.DLL___vbaStrVarVal
push eax
call sub.MSVBVM60.DLL_rtcR8ValFromBstr
call sub.MSVBVM60.DLL___vbaFpI2
mov word [ebp - 0x30], ax
lea ecx, [ebp - 0x38]
call sub.MSVBVM60.DLL___vbaFreeStr
mov ax, word [ebp - 0x18]
sub ax, word [ebp - 0x30]
neg ax
sbb eax, eax
inc eax
neg eax
mov word [ebp - 0x34], ax
jmp 0x423264
lea eax, [ebp - 0x2c]
mov dword [ebp - 0x70], eax
mov dword [ebp - 0x78], 0x4008
push 1
push 0xffffffffffffffff
lea eax, [ebp - 0x78]
push eax
lea eax, [ebp - 0x28]
push eax
lea eax, [ebp - 0x38]
push eax
call sub.MSVBVM60.DLL___vbaStrVarVal
push eax
lea eax, [ebp - 0x48]
push eax
call sub.MSVBVM60.DLL_rtcSplit
lea edx, [ebp - 0x48]
lea ecx, [ebp - 0x28]
call sub.MSVBVM60.DLL___vbaVarMove
lea ecx, [ebp - 0x38]
call sub.MSVBVM60.DLL___vbaFreeStr
lea eax, [ebp - 0x28]
push eax
call sub.MSVBVM60.DLL___vbaRefVarAry
push dword [eax]
push 1
call sub.MSVBVM60.DLL___vbaUbound
mov ecx, eax
call sub.MSVBVM60.DLL___vbaI2I4
mov word [ebp - 0x94], ax
mov word [ebp - 0x90], 1
and word [ebp - 0x14], 0
jmp 0x4231e8
mov ax, word [ebp - 0x14]
add ax, word [ebp - 0x90]
jo 0x4232b1
mov word [ebp - 0x14], ax
mov ax, word [ebp - 0x14]
cmp ax, word [ebp - 0x94]
jg 0x423264
lea eax, [ebp - 0x14]
mov dword [ebp - 0x70], eax
mov dword [ebp - 0x78], 0x4002
push 0x10
pop eax
call sub.MSVBVM60.DLL___vbaChkstk
lea esi, [ebp - 0x78]
mov edi, esp
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
push 1
lea eax, [ebp - 0x28]
push eax
lea eax, [ebp - 0x48]
push eax
call sub.MSVBVM60.DLL___vbaVarIndexLoad
add esp, 0x1c
push eax
lea eax, [ebp - 0x38]
push eax
call sub.MSVBVM60.DLL___vbaStrVarVal
push eax
call sub.MSVBVM60.DLL_rtcR8ValFromBstr
call sub.MSVBVM60.DLL___vbaFpI2
mov word [ebp - 0x30], ax
lea ecx, [ebp - 0x38]
call sub.MSVBVM60.DLL___vbaFreeStr
lea ecx, [ebp - 0x48]
call sub.MSVBVM60.DLL___vbaFreeVar
mov ax, word [ebp - 0x18]
cmp ax, word [ebp - 0x30]
jne 0x42325f
or word [ebp - 0x34], 0xffff
jmp 0x423264
jmp 0x4231d3
wait
push 0x42329c
jmp 0x42328b
lea ecx, [ebp - 0x28]
call sub.MSVBVM60.DLL___vbaFreeVar
lea ecx, [ebp - 0x2c]
call sub.MSVBVM60.DLL___vbaFreeStr
ret
call sub.MSVBVM60.DLL___vbaErrorOverflow