Function at 0x40d9fe
Capabilities:
Parse pe header

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x18
push 0x4040d6
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
mov eax, 0xd4
call sub.MSVBVM60.DLL___vbaChkstk
push ebx
push esi
push edi
mov dword [ebp - 0x18], esp
mov dword [ebp - 0x14], 0x401f20
mov dword [ebp - 0x10], 0
mov dword [ebp - 0xc], 0
mov dword [ebp - 4], 1
push 0x11
push 0x405434
lea eax, [ebp - 0x40]
push eax
call sub.MSVBVM60.DLL___vbaAryConstruct2
mov dword [ebp - 4], 2
push 0xffffffffffffffff
call sub.MSVBVM60.DLL___vbaOnError
mov dword [ebp - 4], 3
fldz
push ecx
push ecx
fstp qword [esp]
call sub.MSVBVM60.DLL_rtcSqr
fstp qword [ebp - 0xd4]
mov dword [ebp - 4], 4
push 0
push 0
call fcn.004052e0
call sub.MSVBVM60.DLL___vbaSetSystemError
mov dword [ebp - 4], 5
mov edx, dword [0x425160]
lea ecx, [ebp - 0x48]
call sub.MSVBVM60.DLL___vbaStrCopy
mov dword [ebp - 4], 6
push 0
push 0
call fcn.004052e0
call sub.MSVBVM60.DLL___vbaSetSystemError
mov dword [ebp - 4], 7
push 0
push 4
push 1
push 0
lea eax, [ebp - 0x68]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
push dword [0x425194]
call sub.MSVBVM60.DLL_VarPtr
mov dword [ebp - 0x70], eax
mov dword [ebp - 0x78], 3
lea esi, [ebp - 0x78]
push 0
push dword [ebp - 0x68]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarMove
mov dword [ebp - 0x80], 1
mov dword [ebp - 0x88], 2
lea esi, [ebp - 0x88]
push 1
push dword [ebp - 0x68]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarMove
and dword [ebp - 0x90], 0
mov dword [ebp - 0x98], 2
lea esi, [ebp - 0x98]
push 2
push dword [ebp - 0x68]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarMove
and dword [ebp - 0xa0], 0
mov dword [ebp - 0xa8], 2
lea esi, [ebp - 0xa8]
push 3
push dword [ebp - 0x68]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarMove
and dword [ebp - 0xb0], 0
mov dword [ebp - 0xb8], 2
lea esi, [ebp - 0xb8]
push 4
push dword [ebp - 0x68]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarMove
lea eax, [ebp - 0x68]
push eax
push dword [0x4250c4]
push dword [ebp - 0x48]
call fcn.00413a31
mov dword [ebp - 0xcc], eax
lea eax, [ebp - 0x68]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase
mov eax, dword [ebp - 0xcc]
mov dword [ebp - 0x50], eax
mov dword [ebp - 4], 8
fldz
push ecx
push ecx
fstp qword [esp]
call sub.MSVBVM60.DLL_rtcSqr
fstp qword [ebp - 0xd4]
mov dword [ebp - 4], 9
push 0
push 0
call fcn.004052e0
call sub.MSVBVM60.DLL___vbaSetSystemError
mov dword [ebp - 4], 0xa
push 0
push 5
push 1
push 0
lea eax, [ebp - 0x68]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
lea eax, [ebp - 0x50]
mov dword [ebp - 0x70], eax
mov dword [ebp - 0x78], 0x4003
lea esi, [ebp - 0x78]
push 0
push dword [ebp - 0x68]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarZero
mov eax, dword [ebp + 8]
push dword [eax]
call sub.MSVBVM60.DLL_VarPtr
mov dword [ebp - 0x80], eax
mov dword [ebp - 0x88], 3
lea esi, [ebp - 0x88]
push 1
push dword [ebp - 0x68]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarMove
and dword [ebp - 0x90], 0
mov dword [ebp - 0x98], 2
lea esi, [ebp - 0x98]
push 2
push dword [ebp - 0x68]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarMove
and dword [ebp - 0xa0], 0
mov dword [ebp - 0xa8], 2
lea esi, [ebp - 0xa8]
push 3
push dword [ebp - 0x68]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarMove
mov dword [ebp - 0xb0], 0x4000000
mov dword [ebp - 0xb8], 3
lea esi, [ebp - 0xb8]
push 4
push dword [ebp - 0x68]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarMove
and dword [ebp - 0xc0], 0
mov dword [ebp - 0xc8], 2
lea esi, [ebp - 0xc8]
push 5
push dword [ebp - 0x68]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarMove
lea eax, [ebp - 0x68]
push eax
push dword [0x4251f0]
push dword [ebp - 0x48]
call fcn.00413a31
mov dword [ebp - 0xcc], eax
lea eax, [ebp - 0x68]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase
mov eax, dword [ebp - 0xcc]
mov dword [ebp - 0x4c], eax
mov dword [ebp - 4], 0xb
push 0
call sub.MSVBVM60.DLL___vbaStrI2
mov edx, eax
lea ecx, [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
call sub.MSVBVM60.DLL_rtcCharValueBstr
lea ecx, [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaFreeStr
mov dword [ebp - 4], 0xc
push 0
push 0
call fcn.004052e0
call sub.MSVBVM60.DLL___vbaSetSystemError
mov dword [ebp - 4], 0xd
mov dword [ebp - 0x24], 1
mov dword [ebp - 4], 0xe
fldz
push ecx
push ecx
fstp qword [esp]
call sub.MSVBVM60.DLL_rtcSqr
fstp qword [ebp - 0xd4]
mov dword [ebp - 4], 0xf
push 0
call sub.MSVBVM60.DLL___vbaStrI2
mov edx, eax
lea ecx, [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
call sub.MSVBVM60.DLL_rtcCharValueBstr
lea ecx, [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaFreeStr
mov dword [ebp - 4], 0x10
mov dword [ebp - 0x5c], 1
mov dword [ebp - 4], 0x12
push 0
call sub.MSVBVM60.DLL___vbaStrI2
mov edx, eax
lea ecx, [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
call sub.MSVBVM60.DLL_rtcCharValueBstr
lea ecx, [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaFreeStr
mov dword [ebp - 4], 0x13
push 0
call sub.MSVBVM60.DLL___vbaStrI2
mov edx, eax
lea ecx, [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
call sub.MSVBVM60.DLL_rtcCharValueBstr
lea ecx, [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaFreeStr
mov dword [ebp - 4], 0x14
mov eax, dword [ebp - 0x5c]
sub eax, 1
jo 0x40e3e7
mov dword [ebp - 0x58], eax
mov dword [ebp - 4], 0x15
push 0
call sub.MSVBVM60.DLL___vbaStrI2
mov edx, eax
lea ecx, [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
call sub.MSVBVM60.DLL_rtcCharValueBstr
lea ecx, [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaFreeStr
mov dword [ebp - 4], 0x16
push 0
push 3
push 1
push 0
lea eax, [ebp - 0x68]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
mov eax, dword [ebp - 0x4c]
mov dword [ebp - 0x70], eax
mov dword [ebp - 0x78], 3
lea esi, [ebp - 0x78]
push 0
push dword [ebp - 0x68]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarMove
and dword [ebp - 0xd8], 0
cmp dword [ebp - 0xd8], 0x3e8
jae 0x40ded3
and dword [ebp - 0xf0], 0
jmp 0x40dede
call sub.MSVBVM60.DLL___vbaGenerateBoundsError
mov dword [ebp - 0xf0], eax
mov eax, dword [ebp - 0x34]
add eax, dword [ebp - 0xd8]
push eax
call sub.MSVBVM60.DLL_VarPtr
mov dword [ebp - 0x80], eax
mov dword [ebp - 0x88], 3
lea esi, [ebp - 0x88]
push 1
push dword [ebp - 0x68]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarMove
mov dword [ebp - 0x90], 0x3e8
mov dword [ebp - 0x98], 2
lea esi, [ebp - 0x98]
push 2
push dword [ebp - 0x68]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarMove
lea eax, [ebp - 0x24]
push eax
call sub.MSVBVM60.DLL_VarPtr
mov dword [ebp - 0xa0], eax
mov dword [ebp - 0xa8], 3
lea esi, [ebp - 0xa8]
push 3
push dword [ebp - 0x68]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarMove
lea eax, [ebp - 0x68]
push eax
push dword [0x4250cc]
push dword [ebp - 0x48]
call fcn.00413a31
lea eax, [ebp - 0x68]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase
mov dword [ebp - 4], 0x17
push 0
call sub.MSVBVM60.DLL___vbaStrI2
mov edx, eax
lea ecx, [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
call sub.MSVBVM60.DLL_rtcCharValueBstr
lea ecx, [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaFreeStr
mov dword [ebp - 4], 0x18
cmp dword [ebp - 0x24], 0
jne 0x40dfc7
jmp 0x40e216
mov dword [ebp - 4], 0x1b
push 0
call sub.MSVBVM60.DLL___vbaStrI2
mov edx, eax
lea ecx, [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
call sub.MSVBVM60.DLL_rtcCharValueBstr
lea ecx, [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaFreeStr
mov dword [ebp - 4], 0x1c
mov eax, dword [ebp - 0x5c]
add eax, dword [ebp - 0x24]
jo 0x40e3e7
mov dword [ebp - 0x5c], eax
mov dword [ebp - 4], 0x1d
fldz
push ecx
push ecx
fstp qword [esp]
call sub.MSVBVM60.DLL_rtcSqr
fstp qword [ebp - 0xd4]
mov dword [ebp - 4], 0x1e
push 0
push 0
call fcn.004052e0
call sub.MSVBVM60.DLL___vbaSetSystemError
mov dword [ebp - 4], 0x1f
push 0
mov eax, dword [ebp - 0x5c]
sub eax, 2
jo 0x40e3e7
push eax
push 1
push 0x11
lea eax, [ebp - 0x28]
push eax
push 1
push 0x80
call sub.MSVBVM60.DLL___vbaRedimPreserve
add esp, 0x1c
mov dword [ebp - 4], 0x20
fldz
push ecx
push ecx
fstp qword [esp]
call sub.MSVBVM60.DLL_rtcSqr
fstp qword [ebp - 0xd4]
mov dword [ebp - 4], 0x21
push 0
call sub.MSVBVM60.DLL___vbaStrI2
mov edx, eax
lea ecx, [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
call sub.MSVBVM60.DLL_rtcCharValueBstr
lea ecx, [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaFreeStr
mov dword [ebp - 4], 0x22
push 0
call sub.MSVBVM60.DLL___vbaStrI2
mov edx, eax
lea ecx, [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
call sub.MSVBVM60.DLL_rtcCharValueBstr
lea ecx, [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaFreeStr
mov dword [ebp - 4], 0x23
fldz
push ecx
push ecx
fstp qword [esp]
call sub.MSVBVM60.DLL_rtcSqr
fstp qword [ebp - 0xd4]
mov dword [ebp - 4], 0x24
push 0
push 2
push 1
push 0
lea eax, [ebp - 0x68]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
push dword [ebp - 0x28]
lea eax, [ebp - 0x60]
push eax
call sub.MSVBVM60.DLL___vbaAryLock
push dword [ebp - 0x58]
push dword [ebp - 0x60]
call sub.MSVBVM60.DLL___vbaDerefAry1
push eax
call sub.MSVBVM60.DLL_VarPtr
mov dword [ebp - 0xcc], eax
lea eax, [ebp - 0x60]
push eax
call sub.MSVBVM60.DLL___vbaAryUnlock
mov eax, dword [ebp - 0xcc]
mov dword [ebp - 0x70], eax
mov dword [ebp - 0x78], 3
lea esi, [ebp - 0x78]
push 0
push dword [ebp - 0x68]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarMove
and dword [ebp - 0xd8], 0
cmp dword [ebp - 0xd8], 0x3e8
jae 0x40e16c
and dword [ebp - 0xf4], 0
jmp 0x40e177
call sub.MSVBVM60.DLL___vbaGenerateBoundsError
mov dword [ebp - 0xf4], eax
mov eax, dword [ebp - 0x34]
add eax, dword [ebp - 0xd8]
push eax
call sub.MSVBVM60.DLL_VarPtr
mov dword [ebp - 0x80], eax
mov dword [ebp - 0x88], 3
lea esi, [ebp - 0x88]
push 1
push dword [ebp - 0x68]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarMove
lea eax, [ebp - 0x24]
mov dword [ebp - 0x90], eax
mov dword [ebp - 0x98], 0x4003
lea esi, [ebp - 0x98]
push 2
push dword [ebp - 0x68]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarZero
lea eax, [ebp - 0x68]
push eax
push dword [0x4251ec]
push dword [0x4251f4]
call fcn.00413a31
lea eax, [ebp - 0x68]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase
mov dword [ebp - 4], 0x25
fldz
push ecx
push ecx
fstp qword [esp]
call sub.MSVBVM60.DLL_rtcSqr
fstp qword [ebp - 0xd4]
jmp 0x40ddea
mov dword [ebp - 4], 0x27
push 0
call sub.MSVBVM60.DLL___vbaStrI2
mov edx, eax
lea ecx, [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
call sub.MSVBVM60.DLL_rtcCharValueBstr
lea ecx, [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaFreeStr
mov dword [ebp - 4], 0x28
push 0
push 0
push 1
push 0
lea eax, [ebp - 0x68]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
lea eax, [ebp - 0x4c]
mov dword [ebp - 0x70], eax
mov dword [ebp - 0x78], 0x4003
lea esi, [ebp - 0x78]
push 0
push dword [ebp - 0x68]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarZero
lea eax, [ebp - 0x68]
push eax
push dword [0x4251bc]
push dword [0x425160]
call fcn.00413a31
lea eax, [ebp - 0x68]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase
mov dword [ebp - 4], 0x29
fldz
push ecx
push ecx
fstp qword [esp]
call sub.MSVBVM60.DLL_rtcSqr
fstp qword [ebp - 0xd4]
mov dword [ebp - 4], 0x2a
push 0
push 0
push 1
push 0
lea eax, [ebp - 0x68]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
lea eax, [ebp - 0x50]
mov dword [ebp - 0x70], eax
mov dword [ebp - 0x78], 0x4003
lea esi, [ebp - 0x78]
push 0
push dword [ebp - 0x68]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarZero
lea eax, [ebp - 0x68]
push eax
push dword [0x4251bc]
push dword [0x425160]
call fcn.00413a31
lea eax, [ebp - 0x68]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase
mov dword [ebp - 4], 0x2b
lea eax, [ebp - 0x28]
push eax
lea eax, [ebp - 0x54]
push eax
call sub.MSVBVM60.DLL___vbaAryCopy
mov dword [ebp - 4], 0x2c
push 0
call sub.MSVBVM60.DLL___vbaStrI2
mov edx, eax
lea ecx, [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
call sub.MSVBVM60.DLL_rtcCharValueBstr
lea ecx, [ebp - 0x64]
call sub.MSVBVM60.DLL___vbaFreeStr
mov dword [ebp - 4], 0x2d
push 0
push 0
call fcn.004052e0
call sub.MSVBVM60.DLL___vbaSetSystemError
wait
push 0x40e3d3
jmp 0x40e3a8
lea eax, [ebp - 0x28]
push eax
push 0
call sub.MSVBVM60.DLL___vbaAryDestruct
lea eax, [ebp - 0x40]
mov dword [ebp - 0xcc], eax
lea eax, [ebp - 0xcc]
push eax
push 0
call sub.MSVBVM60.DLL___vbaAryDestruct
lea ecx, [ebp - 0x48]
call sub.MSVBVM60.DLL___vbaFreeStr
ret
call sub.MSVBVM60.DLL___vbaErrorOverflow