Function at 0x62e560
Capabilities:
Persist via run registry key

Disassembly:
push ebp
mov ebp, esp
sub esp, 0xc
push 0x4054c6
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0x60
push ebx
push esi
push edi
mov dword [ebp - 0xc], esp
mov dword [ebp - 8], 0x405100
mov eax, dword [0x638010]
xor ebx, ebx
cmp eax, ebx
mov dword [ebp - 0x24], ebx
mov dword [ebp - 0x28], ebx
mov dword [ebp - 0x2c], ebx
mov dword [ebp - 0x3c], ebx
mov dword [ebp - 0x50], ebx
mov dword [ebp - 0x5c], ebx
jne 0x62e5b6
push 0x638010
push 0x531514
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov eax, dword [0x638010]
lea ecx, [ebp - 0x5c]
push eax
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaObjSetAddref]
mov eax, dword [ebp - 0x5c]
cmp word [ebp + 0xc], bx
push eax
mov edx, dword [eax]
jne 0x62e6e1
call dword [edx + 0x3cc]
push eax
lea eax, [ebp - 0x28]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaObjSet]
mov esi, eax
lea edx, [ebp - 0x50]
push edx
push esi
mov ecx, dword [esi]
call dword [ecx + 0x4c]
cmp eax, ebx
fnclex
jge 0x62e608
push 0x4c
push 0x5361a4
push esi
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov ax, word [ebp - 0x50]
mov dword [ebp - 0x60], 1
sub ax, 1
mov dword [0x638074], ebx
jo 0x62e853
movsx ecx, ax
mov dword [ebp - 0x64], ecx
lea ecx, [ebp - 0x28]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObj]
mov eax, dword [0x638074]
cmp eax, dword [ebp - 0x64]
jg 0x62e7e5
mov eax, dword [ebp - 0x5c]
lea edi, [ebp + 0xc]
push eax
mov edx, dword [eax]
call dword [edx + 0x3cc]
push eax
lea eax, [ebp - 0x28]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaObjSet]
lea ecx, [ebp - 0x2c]
mov esi, eax
push ecx
mov ecx, dword [0x638074]
mov ebx, dword [esi]
call dword [sym.imp.MSVBVM60.DLL___vbaI2I4]
push eax
push esi
call dword [ebx + 0x40]
xor ebx, ebx
cmp eax, ebx
fnclex
jge 0x62e68a
push 0x40
push 0x5361a4
push esi
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
sub esp, 0x10
mov eax, 0x4002
mov edx, esp
mov ecx, dword [ebp - 0x30]
push 0x6803000f
mov dword [edx], eax
mov eax, dword [ebp - 0x38]
mov dword [edx + 4], eax
mov dword [edx + 8], edi
mov dword [edx + 0xc], ecx
mov edx, dword [ebp - 0x2c]
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaLateIdSt]
lea eax, [ebp - 0x2c]
lea ecx, [ebp - 0x28]
push eax
push ecx
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObjList]
mov eax, dword [0x638074]
mov ecx, dword [ebp - 0x60]
add esp, 0xc
add eax, ecx
jo 0x62e853
mov dword [0x638074], eax
jmp 0x62e637
call dword [edx + 0x3cc]
push eax
lea eax, [ebp - 0x28]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaObjSet]
mov esi, eax
lea edx, [ebp - 0x50]
push edx
push esi
mov ecx, dword [esi]
call dword [ecx + 0x4c]
cmp eax, ebx
fnclex
jge 0x62e713
push 0x4c
push 0x5361a4
push esi
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov ax, word [ebp - 0x50]
mov dword [0x638074], ebx
sub ax, 1
jo 0x62e853
movsx ecx, ax
mov dword [ebp - 0x6c], ecx
lea ecx, [ebp - 0x28]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObj]
mov eax, dword [0x638074]
cmp eax, dword [ebp - 0x6c]
jg 0x62e7e5
mov eax, dword [ebp - 0x5c]
mov edi, 1
push eax
mov edx, dword [eax]
call dword [edx + 0x3cc]
push eax
lea eax, [ebp - 0x28]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaObjSet]
lea ecx, [ebp - 0x2c]
mov esi, eax
push ecx
mov ecx, dword [0x638074]
mov ebx, dword [esi]
call dword [sym.imp.MSVBVM60.DLL___vbaI2I4]
push eax
push esi
call dword [ebx + 0x40]
xor ebx, ebx
cmp eax, ebx
fnclex
jge 0x62e790
push 0x40
push 0x5361a4
push esi
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
sub esp, 0x10
mov eax, 2
mov edx, esp
mov ecx, dword [ebp - 0x30]
push 0x6803000f
mov dword [edx], eax
mov eax, dword [ebp - 0x38]
mov dword [edx + 4], eax
mov dword [edx + 8], edi
mov dword [edx + 0xc], ecx
mov edx, dword [ebp - 0x2c]
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaLateIdSt]
lea eax, [ebp - 0x2c]
lea ecx, [ebp - 0x28]
push eax
push ecx
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObjList]
mov eax, dword [0x638074]
mov ecx, 1
add esp, 0xc
add eax, ecx
jo 0x62e853
mov dword [0x638074], eax
jmp 0x62e73b
lea edx, [ebp - 0x5c]
push ebx
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaObjSetAddref]
push 0x62e824
jmp 0x62e81a
lea ecx, [ebp - 0x5c]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObj]
ret
call dword [sym.imp.MSVBVM60.DLL___vbaErrorOverflow]
nop
nop
nop
nop
nop
nop
nop