Function at 0x419400
Capabilities:
Persist via run registry key

Disassembly:
push ebp
mov ebp, esp
sub esp, 0xc
push 0x402516
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0x110
push ebx
push esi
push edi
mov dword [ebp - 0xc], esp
mov dword [ebp - 8], 0x401a80
xor esi, esi
mov edx, 0x406b20
lea ecx, [ebp - 0x28]
mov dword [ebp - 0x18], esi
mov dword [ebp - 0x1c], esi
mov dword [ebp - 0x20], esi
mov dword [ebp - 0x28], esi
mov dword [ebp - 0x38], esi
mov dword [ebp - 0x3c], esi
mov dword [ebp - 0x40], esi
mov dword [ebp - 0x44], esi
mov dword [ebp - 0x54], esi
mov dword [ebp - 0x64], esi
mov dword [ebp - 0x108], esi
mov dword [ebp - 0x10c], esi
mov dword [ebp - 0x110], esi
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
sub esp, 0x10
mov ecx, 3
mov ebx, esp
mov eax, 0x80000001
sub esp, 0x10
mov edi, 8
mov dword [ebx], ecx
mov ecx, dword [ebp - 0x70]
mov edx, 0x406b28
mov dword [ebx + 4], ecx
mov ecx, esp
sub esp, 0x10
mov dword [ebx + 8], eax
mov eax, dword [ebp - 0x68]
mov dword [ebx + 0xc], eax
mov eax, dword [ebp - 0x90]
mov dword [ecx], edi
mov dword [ecx + 4], eax
mov eax, edi
mov dword [ecx + 8], edx
mov edx, dword [ebp - 0x88]
mov dword [ecx + 0xc], edx
mov edx, dword [ebp - 0xb0]
mov ecx, esp
sub esp, 0x10
mov dword [ecx], eax
mov eax, 0x406bb0
mov dword [ecx + 4], edx
mov edx, dword [ebp - 0xd0]
mov dword [ecx + 8], eax
mov eax, dword [ebp - 0xa8]
mov dword [ecx + 0xc], eax
mov ecx, esp
mov eax, 3
sub esp, 0x10
mov dword [ecx], eax
mov eax, 1
mov dword [ecx + 4], edx
mov edx, dword [ebp - 0xf0]
mov dword [ecx + 8], eax
mov eax, dword [ebp - 0xc8]
mov dword [ecx + 0xc], eax
mov ecx, esp
mov eax, edi
push 5
mov dword [ecx], eax
mov eax, 0x404d68
push 0x406bc0
mov dword [ecx + 4], edx
lea edx, [ebp - 0x54]
mov dword [ecx + 8], eax
mov eax, dword [ebp - 0xe8]
mov dword [ecx + 0xc], eax
mov ecx, dword [0x42c068]
push ecx
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaLateMemCallLd]
add esp, 0x60
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaStrVarMove]
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov edx, eax
lea ecx, [ebp - 0x18]
call edi
lea ecx, [ebp - 0x54]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
mov eax, dword [ebp - 0x18]
mov ebx, dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
push eax
push 0x406bd4
call ebx
mov edx, eax
lea ecx, [ebp - 0x18]
call edi
lea ecx, [ebp - 0x108]
mov dword [ebp - 0x108], 0xffffffff
push ecx
push 0x406be4
push 0x404d68
call ebx
mov edx, eax
lea ecx, [ebp - 0x40]
call edi
push eax
push 0x406be4
call ebx
mov edx, eax
lea ecx, [ebp - 0x44]
call edi
mov edx, dword [ebp - 0x18]
push eax
push edx
call fcn.00419770
push eax
lea eax, [ebp - 0x20]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaObjSet]
lea ecx, [ebp - 0x44]
lea edx, [ebp - 0x40]
push ecx
push edx
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
mov eax, dword [ebp - 0x20]
add esp, 0xc
lea ecx, [ebp - 0x38]
lea edx, [ebp - 0x110]
push eax
push ecx
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaForEachCollVar]
cmp eax, esi
je 0x4196dc
lea eax, [ebp - 0x38]
lea ecx, [ebp - 0x40]
push eax
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaStrVarVal]
push eax
call fcn.00417be0
mov edx, eax
lea ecx, [ebp - 0x1c]
call edi
lea ecx, [ebp - 0x40]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
lea edx, [ebp - 0x54]
push 0xa
push edx
call dword [sym.imp.MSVBVM60.DLL_rtcVarBstrFromAnsi]
mov ecx, dword [ebp - 0x1c]
push esi
lea eax, [ebp - 0x54]
push 0xffffffffffffffff
push eax
lea edx, [ebp - 0x64]
push ecx
push edx
call dword [sym.imp.MSVBVM60.DLL_rtcSplit]
lea eax, [ebp - 0x64]
push eax
push 0x2008
call dword [sym.imp.MSVBVM60.DLL___vbaAryVar]
lea ecx, [ebp - 0x10c]
lea edx, [ebp - 0x3c]
push ecx
push edx
mov dword [ebp - 0x10c], eax
call dword [sym.imp.MSVBVM60.DLL___vbaAryCopy]
lea eax, [ebp - 0x64]
lea ecx, [ebp - 0x54]
push eax
push ecx
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVarList]
mov edx, dword [ebp - 0x3c]
add esp, 0xc
push edx
push 1
call dword [sym.imp.MSVBVM60.DLL___vbaUbound]
mov dword [ebp - 0x118], eax
xor ebx, ebx
cmp bx, word [ebp - 0x118]
jg 0x4196ab
mov eax, dword [ebp - 0x3c]
movsx ecx, bx
mov edx, dword [eax + 0x14]
sub ecx, edx
mov edx, dword [eax + 0xc]
mov eax, dword [edx + ecx*4]
push eax
push 0x404e28
call dword [sym.imp.MSVBVM60.DLL___vbaStrCmp]
test eax, eax
je 0x4196c1
mov eax, 1
add ebx, eax
jmp 0x419678
lea ecx, [ebp - 0x38]
lea edx, [ebp - 0x110]
push ecx
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaNextEachCollVar]
jmp 0x4195de
mov eax, dword [ebp - 0x3c]
inc ebx
movsx ecx, bx
mov edx, dword [eax + 0x14]
sub ecx, edx
mov edx, dword [eax + 0xc]
mov edx, dword [edx + ecx*4]
lea ecx, [ebp - 0x28]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
push 0x41974f
jmp 0x419716
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaFreeObj]
lea ecx, [ebp - 0x110]
call esi
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
lea ecx, [ebp - 0x18]
call edi
lea ecx, [ebp - 0x1c]
call edi
lea ecx, [ebp - 0x20]
call esi
lea ecx, [ebp - 0x38]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
lea ecx, [ebp - 0x3c]
push ecx
push 0
call dword [sym.imp.MSVBVM60.DLL___vbaAryDestruct]
ret