Function at 0x876f00
Capabilities:
Persist via run registry key

Disassembly:
push ebp
mov ebp, esp
sub esp, 8
push 0x405136
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0xd4
push ebx
push esi
push edi
mov dword [ebp - 8], esp
mov dword [ebp - 4], 0x404b88
push 0x11
lea eax, [ebp - 0x3c]
xor esi, esi
push 0x428de0
push eax
mov dword [ebp - 0x14], esi
mov dword [ebp - 0x18], esi
mov dword [ebp - 0x1c], esi
mov dword [ebp - 0x20], esi
mov dword [ebp - 0x24], esi
mov dword [ebp - 0x44], esi
mov dword [ebp - 0x48], esi
mov dword [ebp - 0x4c], esi
mov dword [ebp - 0x50], esi
mov dword [ebp - 0x54], esi
mov dword [ebp - 0x58], esi
mov dword [ebp - 0x5c], esi
mov dword [ebp - 0x6c], esi
mov dword [ebp - 0x7c], esi
mov dword [ebp - 0x8c], esi
mov dword [ebp - 0x9c], esi
mov dword [ebp - 0xac], esi
mov dword [ebp - 0xbc], esi
mov dword [ebp - 0xcc], esi
mov dword [ebp - 0xd0], esi
call dword [sym.imp.MSVBVM60.DLL___vbaAryConstruct2]
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
lea ecx, [ebp - 0x14]
push ecx
lea edx, [ebp - 0x48]
push 0x428d64
push edx
call edi
push eax
push 0x80000002
call fcn.004235c4
mov ebx, dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
call ebx
lea ecx, [ebp - 0x48]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
lea eax, [ebp - 0x18]
lea ecx, [ebp - 0xd0]
push eax
push esi
push ecx
push esi
lea edx, [ebp - 0x48]
push 0x428dc4
push edx
mov dword [ebp - 0xd0], 1
call edi
push eax
mov eax, dword [ebp - 0x14]
push eax
call fcn.004236e8
call ebx
lea ecx, [ebp - 0x48]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
cmp dword [ebp - 0x18], esi
je 0x87723d
mov edx, dword [ebp - 0x30]
lea ecx, [ebp - 0x18]
push ecx
lea eax, [ebp - 0xd0]
push edx
push eax
push esi
lea ecx, [ebp - 0x48]
push 0x428dc4
push ecx
mov dword [ebp - 0xd0], 1
call edi
mov edx, dword [ebp - 0x14]
push eax
push edx
call fcn.004236e8
call ebx
lea ecx, [ebp - 0x48]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
cmp dword [0x882ea0], esi
jne 0x877050
push 0x882ea0
push 0x41fdec
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov edi, dword [0x882ea0]
lea ecx, [ebp - 0x5c]
push ecx
push edi
mov eax, dword [edi]
call dword [eax + 0x14]
cmp eax, esi
fnclex
jge 0x877075
push 0x14
push 0x41fddc
push edi
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov eax, dword [ebp - 0x5c]
lea ecx, [ebp - 0x4c]
push ecx
push eax
mov edx, dword [eax]
mov edi, eax
call dword [edx + 0x58]
cmp eax, esi
fnclex
jge 0x877099
push 0x58
push 0x41fdfc
push edi
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov edx, dword [0x881050]
mov ebx, dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
push 0x4200dc
push edx
call ebx
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov edx, eax
lea ecx, [ebp - 0x48]
call edi
push eax
push 0x4240e8
call ebx
mov edx, eax
lea ecx, [ebp - 0x50]
call edi
push eax
mov eax, dword [ebp - 0x4c]
push eax
call ebx
mov edx, eax
lea ecx, [ebp - 0x54]
call edi
push eax
push 0x428bfc
call ebx
mov edx, eax
lea ecx, [ebp - 0x58]
call edi
push eax
push 0x4200dc
call ebx
mov edx, eax
lea ecx, [ebp - 0x20]
call edi
lea ecx, [ebp - 0x58]
lea edx, [ebp - 0x54]
push ecx
lea eax, [ebp - 0x4c]
push edx
lea ecx, [ebp - 0x50]
push eax
lea edx, [ebp - 0x48]
push ecx
push edx
push 5
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
add esp, 0x18
lea ecx, [ebp - 0x5c]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObj]
lea eax, [ebp - 0x3c]
push esi
mov dword [ebp - 0xd0], eax
lea edx, [ebp - 0xac]
push 0x40
lea eax, [ebp - 0x6c]
lea ecx, [ebp - 0xd0]
push edx
push eax
mov dword [ebp - 0xa4], ecx
mov dword [ebp - 0xac], 0x6011
call dword [sym.imp.MSVBVM60.DLL_rtcStrConvVar2]
mov ebx, dword [sym.imp.MSVBVM60.DLL___vbaStrVarMove]
lea ecx, [ebp - 0x6c]
push ecx
call ebx
mov edx, eax
lea ecx, [ebp - 0x1c]
call edi
lea ecx, [ebp - 0x6c]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
mov edx, dword [ebp - 0x1c]
lea eax, [ebp - 0x6c]
push esi
push eax
mov dword [ebp - 0xa4], edx
mov dword [ebp - 0xac], 8
call dword [sym.imp.MSVBVM60.DLL_rtcVarBstrFromAnsi]
lea ecx, [ebp - 0x1c]
mov dword [ebp - 0xb4], 1
mov dword [ebp - 0xbc], 2
mov dword [ebp - 0xc4], ecx
lea edx, [ebp - 0xac]
push 1
lea eax, [ebp - 0x6c]
push edx
push eax
lea ecx, [ebp - 0x7c]
push esi
push ecx
mov dword [ebp - 0xcc], 0x4008
call dword [sym.imp.MSVBVM60.DLL___vbaInStrVar]
push eax
lea edx, [ebp - 0xbc]
lea eax, [ebp - 0x8c]
push edx
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaVarSub]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaI4Var]
lea ecx, [ebp - 0xcc]
push eax
lea edx, [ebp - 0x9c]
push ecx
push edx
call dword [sym.imp.MSVBVM60.DLL_rtcLeftCharVar]
lea eax, [ebp - 0x9c]
push eax
call ebx
mov edx, eax
lea ecx, [ebp - 0x1c]
call edi
lea ecx, [ebp - 0x9c]
lea edx, [ebp - 0x7c]
push ecx
lea eax, [ebp - 0x6c]
push edx
push eax
push 3
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVarList]
mov ecx, dword [ebp - 0x1c]
mov edx, dword [ebp - 0x20]
add esp, 0x10
push ecx
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaStrCmp]
test eax, eax
jne 0x87723d
mov dword [ebp - 0x24], 0xffffffff
push 0x8772bc
jmp 0x87728e
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
lea ecx, [ebp - 0x1c]
call esi
lea ecx, [ebp - 0x20]
call esi
lea ecx, [ebp - 0xd0]
lea eax, [ebp - 0x3c]
push ecx
push 0
mov dword [ebp - 0xd0], eax
call dword [sym.imp.MSVBVM60.DLL___vbaAryDestruct]
lea ecx, [ebp - 0x44]
call esi
ret