Function at 0x403810
Capabilities:
Persist via run registry key

Disassembly:
push ebp
mov ebp, esp
sub esp, 0xc
push 0x401136
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0x70
push ebx
push esi
push edi
mov dword [ebp - 0xc], esp
mov dword [ebp - 8], 0x401118
mov eax, dword [0x404504]
xor ebx, ebx
cmp eax, ebx
mov dword [ebp - 0x18], ebx
mov dword [ebp - 0x1c], ebx
mov dword [ebp - 0x20], ebx
mov dword [ebp - 0x24], ebx
mov dword [ebp - 0x28], ebx
mov dword [ebp - 0x2c], ebx
mov dword [ebp - 0x30], ebx
mov dword [ebp - 0x34], ebx
mov dword [ebp - 0x38], ebx
mov dword [ebp - 0x3c], ebx
mov dword [ebp - 0x40], ebx
mov dword [ebp - 0x44], ebx
mov dword [ebp - 0x48], ebx
jne 0x40387b
push 0x404504
push 0x402ab4
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov esi, dword [0x404504]
lea ecx, [ebp - 0x3c]
push ecx
push esi
mov eax, dword [esi]
call dword [eax + 0x14]
cmp eax, ebx
fnclex
jge 0x4038a4
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
push 0x14
push 0x402aa4
push esi
push eax
call edi
jmp 0x4038aa
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov eax, dword [ebp - 0x3c]
lea ecx, [ebp - 0x1c]
push ecx
push eax
mov edx, dword [eax]
mov esi, eax
call dword [edx + 0x58]
cmp eax, ebx
fnclex
jge 0x4038ca
push 0x58
push 0x402ac4
push esi
push eax
call edi
cmp dword [0x404504], ebx
jne 0x4038e2
push 0x404504
push 0x402ab4
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov esi, dword [0x404504]
lea eax, [ebp - 0x40]
push eax
push esi
mov edx, dword [esi]
call dword [edx + 0x14]
cmp eax, ebx
fnclex
jge 0x403903
push 0x14
push 0x402aa4
push esi
push eax
call edi
mov eax, dword [ebp - 0x40]
lea edx, [ebp - 0x20]
push edx
push eax
mov ecx, dword [eax]
mov esi, eax
call dword [ecx + 0x50]
cmp eax, ebx
fnclex
jge 0x403923
push 0x50
push 0x402ac4
push esi
push eax
call edi
cmp dword [0x404504], ebx
jne 0x40393b
push 0x404504
push 0x402ab4
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov esi, dword [0x404504]
lea ecx, [ebp - 0x44]
push ecx
push esi
mov eax, dword [esi]
call dword [eax + 0x14]
cmp eax, ebx
fnclex
jge 0x40395c
push 0x14
push 0x402aa4
push esi
push eax
call edi
mov eax, dword [ebp - 0x44]
lea ecx, [ebp - 0x24]
push ecx
push eax
mov edx, dword [eax]
mov esi, eax
call dword [edx + 0x58]
cmp eax, ebx
fnclex
jge 0x40397c
push 0x58
push 0x402ac4
push esi
push eax
call edi
mov edx, dword [ebp - 0x20]
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
push edx
push 0x402ad8
call edi
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov edx, eax
lea ecx, [ebp - 0x28]
call esi
push eax
mov eax, dword [ebp - 0x24]
push eax
call edi
mov edx, eax
lea ecx, [ebp - 0x2c]
call esi
push eax
push 0x402ae0
call edi
mov edx, eax
lea ecx, [ebp - 0x38]
call esi
mov edx, dword [ebp - 0x1c]
lea ecx, [ebp - 0x34]
mov dword [ebp - 0x1c], ebx
call esi
mov edx, 0x402df8
lea ecx, [ebp - 0x30]
call dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
lea ecx, [ebp - 0x38]
lea edx, [ebp - 0x34]
push ecx
lea eax, [ebp - 0x30]
push edx
lea ecx, [ebp - 0x48]
push eax
push ecx
mov dword [ebp - 0x48], 0x80000002
call fcn.00403600
mov edx, eax
lea ecx, [ebp - 0x18]
call esi
lea edx, [ebp - 0x38]
lea eax, [ebp - 0x34]
push edx
lea ecx, [ebp - 0x30]
push eax
lea edx, [ebp - 0x2c]
push ecx
lea eax, [ebp - 0x24]
push edx
lea ecx, [ebp - 0x28]
push eax
lea edx, [ebp - 0x20]
push ecx
push edx
push 7
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
lea eax, [ebp - 0x44]
lea ecx, [ebp - 0x40]
push eax
lea edx, [ebp - 0x3c]
push ecx
push edx
push 3
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObjList]
add esp, 0x30
push 0x403a85
jmp 0x403a84
ret