Function at 0x410e40
Capabilities:
Persist via run registry key

Disassembly:
push ebp
mov ebp, esp
sub esp, 0xc
push 0x401746
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0x50
push ebx
push esi
push edi
mov dword [ebp - 0xc], esp
mov dword [ebp - 8], 0x4013b8
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaStrCopy]
xor ebx, ebx
mov edx, 0x4070dc
mov ecx, 0x415058
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
call esi
mov eax, dword [ebp + 0xc]
cmp word [eax], 0xffff
jne 0x410eac
mov edx, 0x406924
mov ecx, 0x415060
call esi
jmp 0x410fd4
cmp dword [0x4156e4], ebx
jne 0x410ec4
push 0x4156e4
push 0x4064ac
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov esi, dword [0x4156e4]
lea edx, [ebp - 0x38]
push edx
push esi
mov ecx, dword [esi]
call dword [ecx + 0x14]
cmp eax, ebx
fnclex
jge 0x410eed
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
push 0x14
push 0x40649c
push esi
push eax
call edi
jmp 0x410ef3
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov eax, dword [ebp - 0x38]
lea edx, [ebp - 0x28]
push edx
push eax
mov ecx, dword [eax]
mov esi, eax
call dword [ecx + 0x50]
cmp eax, ebx
fnclex
jge 0x410f13
push 0x50
push 0x4064bc
push esi
push eax
call edi
cmp dword [0x4156e4], ebx
jne 0x410f2b
push 0x4156e4
push 0x4064ac
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov esi, dword [0x4156e4]
lea ecx, [ebp - 0x3c]
push ecx
push esi
mov eax, dword [esi]
call dword [eax + 0x14]
cmp eax, ebx
fnclex
jge 0x410f4c
push 0x14
push 0x40649c
push esi
push eax
call edi
mov eax, dword [ebp - 0x3c]
lea ecx, [ebp - 0x2c]
push ecx
push eax
mov edx, dword [eax]
mov esi, eax
call dword [edx + 0x58]
cmp eax, ebx
fnclex
jge 0x410f6c
push 0x58
push 0x4064bc
push esi
push eax
call edi
mov edx, dword [ebp - 0x28]
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
push edx
push 0x4066d4
call esi
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov edx, eax
lea ecx, [ebp - 0x30]
call edi
push eax
mov eax, dword [ebp - 0x2c]
push eax
call esi
mov edx, eax
lea ecx, [ebp - 0x34]
call edi
push eax
push 0x406900
call esi
mov edx, eax
mov ecx, 0x415060
call edi
lea ecx, [ebp - 0x34]
lea edx, [ebp - 0x2c]
push ecx
lea eax, [ebp - 0x30]
push edx
lea ecx, [ebp - 0x28]
push eax
push ecx
push 4
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
lea edx, [ebp - 0x3c]
lea eax, [ebp - 0x38]
push edx
push eax
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObjList]
add esp, 0x20
mov ecx, dword [0x415060]
push ecx
call dword [sym.imp.MSVBVM60.DLL___vbaLenBstr]
mov edx, dword [0x415058]
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaStrToAnsi]
push 0x41505c
mov dword [0x415064], eax
push 0x20006
push ebx
lea eax, [ebp - 0x28]
push edx
push eax
call esi
push eax
push 0x80000002
call fcn.0040632c
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaSetSystemError]
call edi
mov ecx, dword [ebp - 0x28]
mov ebx, dword [sym.imp.MSVBVM60.DLL___vbaStrToUnicode]
push ecx
push 0x415058
call ebx
lea ecx, [ebp - 0x28]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
mov edx, dword [0x415064]
mov eax, dword [0x415060]
push edx
lea ecx, [ebp - 0x2c]
push eax
push ecx
call esi
push eax
push 1
push 0
lea edx, [ebp - 0x28]
push 0x40713c
push edx
call esi
push eax
mov eax, dword [0x41505c]
push eax
call fcn.00406374
call edi
mov ecx, dword [ebp - 0x2c]
push ecx
push 0x415060
call ebx
lea edx, [ebp - 0x2c]
lea eax, [ebp - 0x28]
push edx
push eax
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
mov ecx, dword [0x41505c]
add esp, 0xc
push ecx
call fcn.004063b8
call edi
push 0x4110d1
jmp 0x4110d0
ret