Function at 0x41a01d
Capabilities:
Persist via run registry key

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x18
push 0x4033f6
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
mov eax, 0x144
call sub.MSVBVM60.DLL___vbaChkstk
push ebx
push esi
push edi
mov dword [ebp - 0x18], esp
mov dword [ebp - 0x14], 0x401db8
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
movsx eax, word [0x43702c]
test eax, eax
jne 0x41a317
mov dword [ebp - 4], 4
mov eax, dword [ebp + 0xc]
mov ax, word [eax]
mov word [ebp - 0xf8], ax
movsx eax, word [ebp - 0xf8]
mov dword [ebp - 0x120], eax
cmp dword [ebp - 0x120], 3
je 0x41a0c7
cmp dword [ebp - 0x120], 4
je 0x41a15f
jmp 0x41a317
mov dword [ebp - 4], 6
push 0
push 0xffffffffffffffff
push 0
push 0
lea eax, [ebp - 0x8c]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
lea eax, [ebp - 0x8c]
push eax
push 0x19b
call fcn.00426ffd
mov edx, eax
lea ecx, [ebp - 0x40]
call sub.MSVBVM60.DLL___vbaStrMove
lea eax, [ebp - 0x8c]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase
push dword [0x437064]
mov ecx, 0x124
call sub.MSVBVM60.DLL___vbaI2I4
push eax
push dword [ebp - 0x40]
call fcn.004289e5
movsx eax, ax
sub eax, 7
neg eax
sbb eax, eax
inc eax
neg eax
mov word [ebp - 0xe8], ax
lea ecx, [ebp - 0x40]
call sub.MSVBVM60.DLL___vbaFreeStr
movsx eax, word [ebp - 0xe8]
test eax, eax
je 0x41a15a
jmp 0x41b30a
jmp 0x41a317
mov dword [ebp - 4], 0xa
push 0
push 0xffffffffffffffff
push 0
push 0
lea eax, [ebp - 0x8c]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
lea eax, [ebp - 0x8c]
push eax
push 0x19e
call fcn.00426ffd
mov edx, eax
lea ecx, [ebp - 0x40]
call sub.MSVBVM60.DLL___vbaStrMove
lea eax, [ebp - 0x8c]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase
push 0
push 0xffffffffffffffff
push 0
push 0
lea eax, [ebp - 0x90]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
lea eax, [ebp - 0x90]
push eax
push 0x19f
call fcn.00426ffd
mov edx, eax
lea ecx, [ebp - 0x48]
call sub.MSVBVM60.DLL___vbaStrMove
lea eax, [ebp - 0x90]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase
push dword [ebp - 0x40]
push 0x40a1bc
call sub.MSVBVM60.DLL___vbaStrCat
mov edx, eax
lea ecx, [ebp - 0x44]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
push 0x40a1bc
call sub.MSVBVM60.DLL___vbaStrCat
mov edx, eax
lea ecx, [ebp - 0x4c]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
push dword [ebp - 0x48]
call sub.MSVBVM60.DLL___vbaStrCat
mov edx, eax
lea ecx, [ebp - 0x50]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
push 0x40a1bc
call sub.MSVBVM60.DLL___vbaStrCat
mov edx, eax
lea ecx, [ebp - 0x54]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
push 0x40a1bc
call sub.MSVBVM60.DLL___vbaStrCat
mov edx, eax
lea ecx, [ebp - 0x30]
call sub.MSVBVM60.DLL___vbaStrMove
lea eax, [ebp - 0x54]
push eax
lea eax, [ebp - 0x50]
push eax
lea eax, [ebp - 0x48]
push eax
lea eax, [ebp - 0x4c]
push eax
lea eax, [ebp - 0x44]
push eax
lea eax, [ebp - 0x40]
push eax
push 6
call sub.MSVBVM60.DLL___vbaFreeStrList
add esp, 0x1c
mov dword [ebp - 4], 0xb
push 0
push 0xffffffffffffffff
push 0
push 0
lea eax, [ebp - 0x8c]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
lea eax, [ebp - 0x8c]
push eax
push 0x1a0
call fcn.00426ffd
mov edx, eax
lea ecx, [ebp - 0x40]
call sub.MSVBVM60.DLL___vbaStrMove
lea eax, [ebp - 0x8c]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase
push dword [ebp - 0x30]
push dword [ebp - 0x40]
call sub.MSVBVM60.DLL___vbaStrCat
mov edx, eax
lea ecx, [ebp - 0x30]
call sub.MSVBVM60.DLL___vbaStrMove
lea ecx, [ebp - 0x40]
call sub.MSVBVM60.DLL___vbaFreeStr
mov dword [ebp - 4], 0xc
push dword [0x437054]
mov ecx, 0x124
call sub.MSVBVM60.DLL___vbaI2I4
push eax
push dword [ebp - 0x30]
call fcn.004289e5
movsx eax, ax
cmp eax, 7
jne 0x41a317
jmp 0x41b30a
mov dword [ebp - 4], 0x11
call fcn.0042c192
movsx eax, ax
test eax, eax
je 0x41a338
mov dword [ebp - 4], 0x12
call fcn.0042b929
jmp 0x41a317
mov dword [ebp - 4], 0x14
call sub.MSVBVM60.DLL___vbaFileCloseAll
mov dword [ebp - 4], 0x15
mov dword [ebp - 0x98], 0x4370c4
mov dword [ebp - 0xa0], 0x4008
lea eax, [ebp - 0xa0]
push eax
call sub.MSVBVM60.DLL_rtcKillFiles
mov dword [ebp - 4], 0x16
mov eax, dword [ebp + 8]
mov eax, dword [eax]
mov dword [ebp - 0xe8], eax
lea eax, [ebp - 0xd8]
push eax
mov eax, dword [ebp - 0xe8]
mov eax, dword [eax]
push dword [ebp - 0xe8]
call dword [eax + 0x58]
fnclex
mov dword [ebp - 0xec], eax
cmp dword [ebp - 0xec], 0
jge 0x41a3c6
push 0x58
push 0x409ce8
push dword [ebp - 0xe8]
push dword [ebp - 0xec]
call sub.MSVBVM60.DLL___vbaHresultCheckObj
mov dword [ebp - 0x124], eax
jmp 0x41a3cd
and dword [ebp - 0x124], 0
cmp dword [0x437010], 0
jne 0x41a3f1
push 0x437010
push 0x404838
call sub.MSVBVM60.DLL___vbaNew2
mov dword [ebp - 0x128], 0x437010
jmp 0x41a3fb
mov dword [ebp - 0x128], 0x437010
mov eax, dword [ebp - 0x128]
mov eax, dword [eax]
mov dword [ebp - 0xf0], eax
lea eax, [ebp - 0xdc]
push eax
mov eax, dword [ebp - 0xf0]
mov eax, dword [eax]
push dword [ebp - 0xf0]
call dword [eax + 0x58]
fnclex
mov dword [ebp - 0xf4], eax
cmp dword [ebp - 0xf4], 0
jge 0x41a452
push 0x58
push 0x408aa0
push dword [ebp - 0xf0]
push dword [ebp - 0xf4]
call sub.MSVBVM60.DLL___vbaHresultCheckObj
mov dword [ebp - 0x12c], eax
jmp 0x41a459
and dword [ebp - 0x12c], 0
mov eax, dword [ebp - 0xd8]
cmp eax, dword [ebp - 0xdc]
je 0x41a50e
mov dword [ebp - 4], 0x17
cmp dword [0x437bf4], 0
jne 0x41a496
push 0x437bf4
push 0x40a1e0
call sub.MSVBVM60.DLL___vbaNew2
mov dword [ebp - 0x130], 0x437bf4
jmp 0x41a4a0
mov dword [ebp - 0x130], 0x437bf4
mov eax, dword [ebp - 0x130]
mov eax, dword [eax]
mov dword [ebp - 0xe8], eax
mov eax, dword [ebp + 8]
push dword [eax]
lea eax, [ebp - 0x58]
push eax
call sub.MSVBVM60.DLL___vbaObjSetAddref
push eax
mov eax, dword [ebp - 0xe8]
mov eax, dword [eax]
push dword [ebp - 0xe8]
call dword [eax + 0x10]
fnclex
mov dword [ebp - 0xec], eax
cmp dword [ebp - 0xec], 0
jge 0x41a4ff
push 0x10
push 0x40a1d0
push dword [ebp - 0xe8]
push dword [ebp - 0xec]
call sub.MSVBVM60.DLL___vbaHresultCheckObj
mov dword [ebp - 0x134], eax
jmp 0x41a506
and dword [ebp - 0x134], 0
lea ecx, [ebp - 0x58]
call sub.MSVBVM60.DLL___vbaFreeObj
mov dword [ebp - 4], 0x19
cmp dword [0x437010], 0
jne 0x41a539
push 0x437010
push 0x404838
call sub.MSVBVM60.DLL___vbaNew2
mov dword [ebp - 0x138], 0x437010
jmp 0x41a543
mov dword [ebp - 0x138], 0x437010
mov eax, dword [ebp - 0x138]
mov eax, dword [eax]
mov dword [ebp - 0xe8], eax
lea eax, [ebp - 0xd4]
push eax
mov eax, dword [ebp - 0xe8]
mov eax, dword [eax]
push dword [ebp - 0xe8]
call dword [eax + 0x1b8]
fnclex
mov dword [ebp - 0xec], eax
cmp dword [ebp - 0xec], 0
jge 0x41a5a0
push 0x1b8
push 0x408aa0
push dword [ebp - 0xe8]
push dword [ebp - 0xec]
call sub.MSVBVM60.DLL___vbaHresultCheckObj
mov dword [ebp - 0x13c], eax
jmp 0x41a5a7
and dword [ebp - 0x13c], 0
movsx eax, word [ebp - 0xd4]
test eax, eax
je 0x41a648
mov dword [ebp - 4], 0x1a
cmp dword [0x437010], 0
jne 0x41a5e1
push 0x437010
push 0x404838
call sub.MSVBVM60.DLL___vbaNew2
mov dword [ebp - 0x140], 0x437010
jmp 0x41a5eb
mov dword [ebp - 0x140], 0x437010
mov eax, dword [ebp - 0x140]
mov eax, dword [eax]
mov dword [ebp - 0xe8], eax
mov eax, dword [ebp - 0xe8]
mov eax, dword [eax]
push dword [ebp - 0xe8]
call dword [eax + 0x2a8]
fnclex
mov dword [ebp - 0xec], eax
cmp dword [ebp - 0xec], 0
jge 0x41a641
push 0x2a8
push 0x408aa0
push dword [ebp - 0xe8]
push dword [ebp - 0xec]
call sub.MSVBVM60.DLL___vbaHresultCheckObj
mov dword [ebp - 0x144], eax
jmp 0x41a648
and dword [ebp - 0x144], 0
mov dword [ebp - 4], 0x1c
mov eax, dword [ebp + 0xc]
mov ax, word [eax]
mov word [ebp - 0xfc], ax
movsx eax, word [ebp - 0xfc]
mov dword [ebp - 0x148], eax
cmp dword [ebp - 0x148], 3
jl 0x41aa19
cmp dword [ebp - 0x148], 4
jle 0x41a6a3
cmp dword [ebp - 0x148], 5
je 0x41a874
cmp dword [ebp - 0x148], 6
je 0x41a948
jmp 0x41aa19
mov dword [ebp - 4], 0x1e
push 0
push 1
push 1
push 0
lea eax, [ebp - 0x8c]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
mov dword [ebp - 0x98], 0x408910
mov dword [ebp - 0xa0], 8
lea esi, [ebp - 0xa0]
push 0
push dword [ebp - 0x8c]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarCopy
mov dword [ebp - 0xa8], 0x43705c
mov dword [ebp - 0xb0], 0x4008
lea esi, [ebp - 0xb0]
push 1
push dword [ebp - 0x8c]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarZero
lea eax, [ebp - 0x8c]
push eax
push 0x19c
call fcn.00426ffd
mov edx, eax
lea ecx, [ebp - 0x40]
call sub.MSVBVM60.DLL___vbaStrMove
lea eax, [ebp - 0x8c]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase
push 0
push 1
push 1
push 0
lea eax, [ebp - 0x90]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
mov dword [ebp - 0xb8], 0x408910
mov dword [ebp - 0xc0], 8
lea esi, [ebp - 0xc0]
push 0
push dword [ebp - 0x90]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarCopy
mov dword [ebp - 0xc8], 0x43705c
mov dword [ebp - 0xd0], 0x4008
lea esi, [ebp - 0xd0]
push 1
push dword [ebp - 0x90]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarZero
lea eax, [ebp - 0x90]
push eax
push 0x19d
call fcn.00426ffd
mov edx, eax
lea ecx, [ebp - 0x48]
call sub.MSVBVM60.DLL___vbaStrMove
lea eax, [ebp - 0x90]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase
push dword [ebp - 0x40]
push 0x40a1bc
call sub.MSVBVM60.DLL___vbaStrCat
mov edx, eax
lea ecx, [ebp - 0x44]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
push 0x40a1bc
call sub.MSVBVM60.DLL___vbaStrCat
mov edx, eax
lea ecx, [ebp - 0x4c]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
push dword [ebp - 0x48]
call sub.MSVBVM60.DLL___vbaStrCat
mov edx, eax
lea ecx, [ebp - 0x30]
call sub.MSVBVM60.DLL___vbaStrMove
lea eax, [ebp - 0x48]
push eax
lea eax, [ebp - 0x4c]
push eax
lea eax, [ebp - 0x44]
push eax
lea eax, [ebp - 0x40]
push eax
push 4
call sub.MSVBVM60.DLL___vbaFreeStrList
add esp, 0x14
mov dword [ebp - 4], 0x1f
push dword [0x437064]
push 0x10
pop ecx
call sub.MSVBVM60.DLL___vbaI2I4
push eax
push dword [ebp - 0x30]
call fcn.004289e5
jmp 0x41abe5
mov dword [ebp - 4], 0x21
push 0
push 1
push 1
push 0
lea eax, [ebp - 0x8c]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
mov dword [ebp - 0x98], 0x408910
mov dword [ebp - 0xa0], 8
lea esi, [ebp - 0xa0]
push 0
push dword [ebp - 0x8c]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarCopy
mov dword [ebp - 0xa8], 0x43705c
mov dword [ebp - 0xb0], 0x4008
lea esi, [ebp - 0xb0]
push 1
push dword [ebp - 0x8c]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarZero
lea eax, [ebp - 0x8c]
push eax
push 0x1a2
call fcn.00426ffd
mov edx, eax
lea ecx, [ebp - 0x40]
call sub.MSVBVM60.DLL___vbaStrMove
lea eax, [ebp - 0x8c]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase
push 1
push dword [0x437064]
push 0x10
pop ecx
call sub.MSVBVM60.DLL___vbaI2I4
push eax
push dword [ebp - 0x40]
call fcn.00428112
lea ecx, [ebp - 0x40]
call sub.MSVBVM60.DLL___vbaFreeStr
jmp 0x41abe5
mov dword [ebp - 4], 0x23
push 0
push 1
push 1
push 0
lea eax, [ebp - 0x8c]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
mov dword [ebp - 0x98], 0x408910
mov dword [ebp - 0xa0], 8
lea esi, [ebp - 0xa0]
push 0
push dword [ebp - 0x8c]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarCopy
mov dword [ebp - 0xa8], 0x43705c
mov dword [ebp - 0xb0], 0x4008
lea esi, [ebp - 0xb0]
push 1
push dword [ebp - 0x8c]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarZero
lea eax, [ebp - 0x8c]
push eax
push 0x1a1
call fcn.00426ffd
mov edx, eax
lea ecx, [ebp - 0x40]
call sub.MSVBVM60.DLL___vbaStrMove
lea eax, [ebp - 0x8c]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase
push dword [0x437064]
xor ecx, ecx
call sub.MSVBVM60.DLL___vbaI2I4
push eax
push dword [ebp - 0x40]
call fcn.0042875f
lea ecx, [ebp - 0x40]
call sub.MSVBVM60.DLL___vbaFreeStr
jmp 0x41abe5
mov dword [ebp - 4], 0x25
push 0
push 1
push 1
push 0
lea eax, [ebp - 0x8c]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
mov dword [ebp - 0x98], 0x408910
mov dword [ebp - 0xa0], 8
lea esi, [ebp - 0xa0]
push 0
push dword [ebp - 0x8c]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarCopy
mov dword [ebp - 0xa8], 0x43705c
mov dword [ebp - 0xb0], 0x4008
lea esi, [ebp - 0xb0]
push 1
push dword [ebp - 0x8c]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarZero
lea eax, [ebp - 0x8c]
push eax
push 0x19c
call fcn.00426ffd
mov edx, eax
lea ecx, [ebp - 0x40]
call sub.MSVBVM60.DLL___vbaStrMove
lea eax, [ebp - 0x8c]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase
push 0
push 1
push 1
push 0
lea eax, [ebp - 0x90]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
mov dword [ebp - 0xb8], 0x408910
mov dword [ebp - 0xc0], 8
lea esi, [ebp - 0xc0]
push 0
push dword [ebp - 0x90]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarCopy
mov dword [ebp - 0xc8], 0x43705c
mov dword [ebp - 0xd0], 0x4008
lea esi, [ebp - 0xd0]
push 1
push dword [ebp - 0x90]
call sub.MSVBVM60.DLL___vbaDerefAry1
mov ecx, eax
mov edx, esi
call sub.MSVBVM60.DLL___vbaVarZero
lea eax, [ebp - 0x90]
push eax
push 0x19d
call fcn.00426ffd
mov edx, eax
lea ecx, [ebp - 0x48]
call sub.MSVBVM60.DLL___vbaStrMove
lea eax, [ebp - 0x90]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase
push dword [ebp - 0x40]
push 0x40a1bc
call sub.MSVBVM60.DLL___vbaStrCat
mov edx, eax
lea ecx, [ebp - 0x44]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
push 0x40a1bc
call sub.MSVBVM60.DLL___vbaStrCat
mov edx, eax
lea ecx, [ebp - 0x4c]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
push dword [ebp - 0x48]
call sub.MSVBVM60.DLL___vbaStrCat
mov edx, eax
lea ecx, [ebp - 0x30]
call sub.MSVBVM60.DLL___vbaStrMove
lea eax, [ebp - 0x48]
push eax
lea eax, [ebp - 0x4c]
push eax
lea eax, [ebp - 0x44]
push eax
lea eax, [ebp - 0x40]
push eax
push 4
call sub.MSVBVM60.DLL___vbaFreeStrList
add esp, 0x14
mov dword [ebp - 4], 0x26
push dword [0x437064]
push 0x10
pop ecx
call sub.MSVBVM60.DLL___vbaI2I4
push eax
push dword [ebp - 0x30]
call fcn.004289e5
mov dword [ebp - 4], 0x28
call fcn.0042b9f1
mov dword [ebp - 4], 0x29
mov eax, dword [ebp + 0xc]
cmp word [eax], 6
jne 0x41ae42
mov dword [ebp - 4], 0x2a
lea eax, [ebp - 0x24]
push eax
push 0x40aa8c
push 0x80000002
call fcn.0042161b
movsx eax, ax
test eax, eax
je 0x41ae3d
mov dword [ebp - 4], 0x2b
lea eax, [ebp - 0x2c]
push eax
push 0x40ab00
push dword [ebp - 0x24]
call fcn.0042181a
movsx eax, ax
test eax, eax
je 0x41ae3d
mov dword [ebp - 4], 0x2c
push 0
push 0xffffffffffffffff
push 0
push 0
lea eax, [ebp - 0x8c]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
lea eax, [ebp - 0x8c]
push eax
push 0x203
call fcn.00426ffd
mov edx, eax
lea ecx, [ebp - 0x40]
call sub.MSVBVM60.DLL___vbaStrMove
lea eax, [ebp - 0x8c]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase
mov dword [ebp - 0x80], 0x80020004
mov dword [ebp - 0x88], 0xa
mov dword [ebp - 0x70], 0x80020004
mov dword [ebp - 0x78], 0xa
mov dword [ebp - 0x98], 0x437064
mov dword [ebp - 0xa0], 0x4008
mov eax, dword [ebp - 0x40]
mov dword [ebp - 0x118], eax
and dword [ebp - 0x40], 0
mov eax, dword [ebp - 0x118]
mov dword [ebp - 0x60], eax
mov dword [ebp - 0x68], 8
lea eax, [ebp - 0x88]
push eax
lea eax, [ebp - 0x78]
push eax
lea eax, [ebp - 0xa0]
push eax
push 0x44
lea eax, [ebp - 0x68]
push eax
call sub.MSVBVM60.DLL_rtcMsgBox
sub eax, 6
neg eax
sbb eax, eax
inc eax
neg eax
mov word [ebp - 0xe8], ax
lea eax, [ebp - 0x88]
push eax
lea eax, [ebp - 0x78]
push eax
lea eax, [ebp - 0x68]
push eax
push 3
call sub.MSVBVM60.DLL___vbaFreeVarList
add esp, 0x10
movsx eax, word [ebp - 0xe8]
test eax, eax
je 0x41ad4e
mov dword [ebp - 4], 0x2d
or word [ebp - 0x38], 0xffff
jmp 0x41ae3d
mov dword [ebp - 4], 0x2f
and word [ebp - 0x38], 0
mov dword [ebp - 4], 0x30
mov eax, dword [ebp + 0xc]
mov word [eax], 5
mov dword [ebp - 4], 0x31
push 0
push 0xffffffffffffffff
push 0
push 0
lea eax, [ebp - 0x8c]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
lea eax, [ebp - 0x8c]
push eax
push 0x204
call fcn.00426ffd
mov edx, eax
lea ecx, [ebp - 0x40]
call sub.MSVBVM60.DLL___vbaStrMove
lea eax, [ebp - 0x8c]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase
mov dword [ebp - 0x80], 0x80020004
mov dword [ebp - 0x88], 0xa
mov dword [ebp - 0x70], 0x80020004
mov dword [ebp - 0x78], 0xa
mov dword [ebp - 0x98], 0x437064
mov dword [ebp - 0xa0], 0x4008
mov eax, dword [ebp - 0x40]
mov dword [ebp - 0x11c], eax
and dword [ebp - 0x40], 0
mov eax, dword [ebp - 0x11c]
mov dword [ebp - 0x60], eax
mov dword [ebp - 0x68], 8
lea eax, [ebp - 0x88]
push eax
lea eax, [ebp - 0x78]
push eax
lea eax, [ebp - 0xa0]
push eax
push 0x30
lea eax, [ebp - 0x68]
push eax
call sub.MSVBVM60.DLL_rtcMsgBox
lea eax, [ebp - 0x88]
push eax
lea eax, [ebp - 0x78]
push eax
lea eax, [ebp - 0x68]
push eax
push 3
call sub.MSVBVM60.DLL___vbaFreeVarList
add esp, 0x10
jmp 0x41b1e3
mov dword [ebp - 4], 0x36
push dword [0x4370a8]
call sub.MSVBVM60.DLL___vbaLenBstr
test eax, eax
jle 0x41b1e3
mov dword [ebp - 4], 0x37
push 0
push 0xffffffffffffffff
push 0
push 0
lea eax, [ebp - 0x8c]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
lea eax, [ebp - 0x8c]
push eax
push 0x7de
call fcn.00426ffd
mov edx, eax
lea ecx, [ebp - 0x40]
call sub.MSVBVM60.DLL___vbaStrMove
lea eax, [ebp - 0x8c]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase
push dword [0x437064]
push 0x40
pop ecx
call sub.MSVBVM60.DLL___vbaI2I4
push eax
push dword [ebp - 0x40]
call fcn.0042875f
lea ecx, [ebp - 0x40]
call sub.MSVBVM60.DLL___vbaFreeStr
mov dword [ebp - 4], 0x38
call sub.MSVBVM60.DLL_rtcErrObj
push eax
lea eax, [ebp - 0x58]
push eax
call sub.MSVBVM60.DLL___vbaObjSet
mov dword [ebp - 0x14c], eax
mov eax, dword [ebp - 0x14c]
mov eax, dword [eax]
push dword [ebp - 0x14c]
call dword [eax + 0x48]
lea ecx, [ebp - 0x58]
call sub.MSVBVM60.DLL___vbaFreeObj
mov dword [ebp - 4], 0x39
movsx eax, word [0x437024]
test eax, eax
je 0x41af27
mov dword [ebp - 4], 0x3a
mov edx, dword [0x437028]
lea ecx, [ebp - 0x34]
call sub.MSVBVM60.DLL___vbaStrCopy
jmp 0x41af38
mov dword [ebp - 4], 0x3c
xor edx, edx
lea ecx, [ebp - 0x34]
call sub.MSVBVM60.DLL___vbaStrCopy
mov dword [ebp - 4], 0x3e
mov eax, dword [ebp + 0xc]
mov ax, word [eax]
mov word [ebp - 0x100], ax
movsx eax, word [ebp - 0x100]
mov dword [ebp - 0x150], eax
cmp dword [ebp - 0x150], 3
je 0x41af87
cmp dword [ebp - 0x150], 4
je 0x41af96
cmp dword [ebp - 0x150], 5
je 0x41af78
jmp 0x41afa5
mov dword [ebp - 4], 0x40
mov word [ebp - 0x28], 1
jmp 0x41afb2
mov dword [ebp - 4], 0x42
mov word [ebp - 0x28], 3
jmp 0x41afb2
mov dword [ebp - 4], 0x44
mov word [ebp - 0x28], 2
jmp 0x41afb2
mov dword [ebp - 4], 0x46
mov word [ebp - 0x28], 1
mov dword [ebp - 4], 0x48
or word [ebp - 0xd4], 0xffff
mov eax, dword [0x4370a4]
mov dword [ebp - 0x98], eax
mov dword [ebp - 0xa0], 8
lea eax, [ebp - 0xd4]
push eax
push dword [ebp - 0x28]
push dword [ebp - 0x34]
push 0x10
pop eax
call sub.MSVBVM60.DLL___vbaChkstk
lea esi, [ebp - 0xa0]
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 dword [0x4370a8]
lea eax, [ebp - 0x68]
push eax
call fcn.0041be06
push 1
lea eax, [ebp - 0x68]
push eax
call sub.MSVBVM60.DLL_rtcShell
fstp qword [ebp - 0xe4]
lea ecx, [ebp - 0x68]
call sub.MSVBVM60.DLL___vbaFreeVar
mov dword [ebp - 4], 0x49
call sub.MSVBVM60.DLL_rtcErrObj
push eax
lea eax, [ebp - 0x58]
push eax
call sub.MSVBVM60.DLL___vbaObjSet
mov dword [ebp - 0xe8], eax
lea eax, [ebp - 0xd8]
push eax
mov eax, dword [ebp - 0xe8]
mov eax, dword [eax]
push dword [ebp - 0xe8]
call dword [eax + 0x1c]
fnclex
mov dword [ebp - 0xec], eax
cmp dword [ebp - 0xec], 0
jge 0x41b084
push 0x1c
push 0x40a1a8
push dword [ebp - 0xe8]
push dword [ebp - 0xec]
call sub.MSVBVM60.DLL___vbaHresultCheckObj
mov dword [ebp - 0x154], eax
jmp 0x41b08b
and dword [ebp - 0x154], 0
xor eax, eax
cmp dword [ebp - 0xd8], 0
setne al
neg eax
mov word [ebp - 0xf0], ax
lea ecx, [ebp - 0x58]
call sub.MSVBVM60.DLL___vbaFreeObj
movsx eax, word [ebp - 0xf0]
test eax, eax
je 0x41b1e3
mov dword [ebp - 4], 0x4a
call sub.MSVBVM60.DLL_rtcErrObj
push eax
lea eax, [ebp - 0x58]
push eax
call sub.MSVBVM60.DLL___vbaObjSet
mov dword [ebp - 0xe8], eax
lea eax, [ebp - 0x40]
push eax
mov eax, dword [ebp - 0xe8]
mov eax, dword [eax]
push dword [ebp - 0xe8]
call dword [eax + 0x2c]
fnclex
mov dword [ebp - 0xec], eax
cmp dword [ebp - 0xec], 0
jge 0x41b119
push 0x2c
push 0x40a1a8
push dword [ebp - 0xe8]
push dword [ebp - 0xec]
call sub.MSVBVM60.DLL___vbaHresultCheckObj
mov dword [ebp - 0x158], eax
jmp 0x41b120
and dword [ebp - 0x158], 0
push 0
push 0xffffffffffffffff
push 0
push 0
lea eax, [ebp - 0x8c]
push eax
push 0x10
push 0x880
call sub.MSVBVM60.DLL___vbaRedim
add esp, 0x1c
lea eax, [ebp - 0x8c]
push eax
push 0x7dd
call fcn.00426ffd
mov edx, eax
lea ecx, [ebp - 0x48]
call sub.MSVBVM60.DLL___vbaStrMove
lea eax, [ebp - 0x8c]
push eax
push 0
call sub.MSVBVM60.DLL___vbaErase
push 1
push dword [0x437064]
push 0x30
pop ecx
call sub.MSVBVM60.DLL___vbaI2I4
push eax
push dword [ebp - 0x40]
push 0x40a1bc
call sub.MSVBVM60.DLL___vbaStrCat
mov edx, eax
lea ecx, [ebp - 0x44]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
push 0x40a1bc
call sub.MSVBVM60.DLL___vbaStrCat
mov edx, eax
lea ecx, [ebp - 0x4c]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
push dword [ebp - 0x48]
call sub.MSVBVM60.DLL___vbaStrCat
mov edx, eax
lea ecx, [ebp - 0x50]
call sub.MSVBVM60.DLL___vbaStrMove
push eax
call fcn.00428112
lea eax, [ebp - 0x50]
push eax
lea eax, [ebp - 0x48]
push eax
lea eax, [ebp - 0x4c]
push eax
lea eax, [ebp - 0x44]
push eax
lea eax, [ebp - 0x40]
push eax
push 5
call sub.MSVBVM60.DLL___vbaFreeStrList
add esp, 0x18
lea ecx, [ebp - 0x58]
call sub.MSVBVM60.DLL___vbaFreeObj
mov dword [ebp - 4], 0x4e
cmp dword [0x437bf4], 0
jne 0x41b20e
push 0x437bf4
push 0x40a1e0
call sub.MSVBVM60.DLL___vbaNew2
mov dword [ebp - 0x15c], 0x437bf4
jmp 0x41b218
mov dword [ebp - 0x15c], 0x437bf4
mov eax, dword [ebp - 0x15c]
mov eax, dword [eax]
mov dword [ebp - 0xe8], eax
cmp dword [0x437010], 0
jne 0x41b24a
push 0x437010
push 0x404838
call sub.MSVBVM60.DLL___vbaNew2
mov dword [ebp - 0x160], 0x437010
jmp 0x41b254
mov dword [ebp - 0x160], 0x437010
mov eax, dword [ebp - 0x160]
push dword [eax]
lea eax, [ebp - 0x58]
push eax
call sub.MSVBVM60.DLL___vbaObjSetAddref
push eax
mov eax, dword [ebp - 0xe8]
mov eax, dword [eax]
push dword [ebp - 0xe8]
call dword [eax + 0x10]
fnclex
mov dword [ebp - 0xec], eax
cmp dword [ebp - 0xec], 0
jge 0x41b2a8
push 0x10
push 0x40a1d0
push dword [ebp - 0xe8]
push dword [ebp - 0xec]
call sub.MSVBVM60.DLL___vbaHresultCheckObj
mov dword [ebp - 0x164], eax
jmp 0x41b2af
and dword [ebp - 0x164], 0
lea ecx, [ebp - 0x58]
call sub.MSVBVM60.DLL___vbaFreeObj
mov dword [ebp - 4], 0x4f
movsx eax, word [ebp - 0x38]
test eax, eax
je 0x41b2d2
mov dword [ebp - 4], 0x50
call fcn.004263ae
mov dword [ebp - 4], 0x52
mov eax, dword [ebp + 0xc]
cmp word [eax], 6
jne 0x41b2f7
mov dword [ebp - 4], 0x53
push 0
call fcn.00409bf8
call sub.MSVBVM60.DLL___vbaSetSystemError
jmp 0x41b30a
mov dword [ebp - 4], 0x55
push 1
call fcn.00409bf8
call sub.MSVBVM60.DLL___vbaSetSystemError
wait
push 0x41b38b
jmp 0x41b372
lea ecx, [ebp - 0x2c]
call sub.MSVBVM60.DLL___vbaFreeStr
lea ecx, [ebp - 0x30]
call sub.MSVBVM60.DLL___vbaFreeStr
lea ecx, [ebp - 0x34]
call sub.MSVBVM60.DLL___vbaFreeStr
ret