Function at 0x4224a0
Capabilities:
Persist via run registry key

Disassembly:
push ebp
mov ebp, esp
sub esp, 8
push 0x4017f6
mov eax, dword fs:[0]
push eax
mov dword fs:[0], esp
sub esp, 0x4c
push ebx
push esi
push edi
mov dword [ebp - 8], esp
mov dword [ebp - 4], 0x401658
mov edi, dword [ebp + 8]
xor esi, esi
mov dword [ebp - 0x14], esi
mov dword [ebp - 0x18], esi
cmp word [edi], si
mov dword [ebp - 0x1c], esi
mov dword [ebp - 0x20], esi
mov dword [ebp - 0x24], esi
mov dword [ebp - 0x28], esi
mov dword [ebp - 0x38], esi
je 0x422657
mov word [edi], 1
mov eax, dword [0x428a18]
cmp eax, esi
jne 0x42250a
push 0x428a18
push 0x404e78
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov esi, dword [0x428a18]
lea ecx, [ebp - 0x24]
push ecx
push esi
mov eax, dword [esi]
call dword [eax + 0x14]
test eax, eax
fnclex
jge 0x422533
mov ebx, dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
push 0x14
push 0x404e68
push esi
push eax
call ebx
jmp 0x422539
mov ebx, dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov eax, dword [ebp - 0x24]
lea ecx, [ebp - 0x14]
push ecx
push eax
mov edx, dword [eax]
mov esi, eax
call dword [edx + 0x50]
test eax, eax
fnclex
jge 0x422559
push 0x50
push 0x404e88
push esi
push eax
call ebx
mov eax, dword [0x428a18]
test eax, eax
jne 0x422572
push 0x428a18
push 0x404e78
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov esi, dword [0x428a18]
lea eax, [ebp - 0x28]
push eax
push esi
mov edx, dword [esi]
call dword [edx + 0x14]
test eax, eax
fnclex
jge 0x422593
push 0x14
push 0x404e68
push esi
push eax
call ebx
mov eax, dword [ebp - 0x28]
lea edx, [ebp - 0x18]
push edx
push eax
mov ecx, dword [eax]
mov esi, eax
call dword [ecx + 0x58]
test eax, eax
fnclex
jge 0x4225b3
push 0x58
push 0x404e88
push esi
push eax
call ebx
mov eax, dword [ebp - 0x14]
mov esi, dword [sym.imp.MSVBVM60.DLL___vbaStrCat]
push eax
push 0x404d5c
call esi
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaStrMove]
mov edx, eax
lea ecx, [ebp - 0x1c]
call edi
mov ecx, dword [ebp - 0x18]
push eax
push ecx
call esi
mov edx, eax
lea ecx, [ebp - 0x20]
call edi
push eax
push 0x405ff8
call esi
sub esp, 0x10
mov ecx, 8
mov edx, esp
mov dword [ebp - 0x38], ecx
mov dword [ebp - 0x30], eax
push 0x405fe4
mov dword [edx], ecx
mov ecx, dword [ebp - 0x34]
push 0x405f84
push 0x80000002
mov dword [edx + 4], ecx
mov dword [edx + 8], eax
mov eax, dword [ebp - 0x2c]
mov dword [edx + 0xc], eax
call fcn.0041d540
lea ecx, [ebp - 0x20]
lea edx, [ebp - 0x18]
push ecx
lea eax, [ebp - 0x1c]
push edx
lea ecx, [ebp - 0x14]
push eax
push ecx
push 4
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
lea edx, [ebp - 0x28]
lea eax, [ebp - 0x24]
push edx
push eax
push 2
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObjList]
add esp, 0x20
lea ecx, [ebp - 0x38]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVar]
mov edi, dword [ebp + 8]
xor esi, esi
jmp 0x422671
push 0x405fe4
push 0x405f84
push 0x80000002
call fcn.0041daa0
mov ebx, dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov eax, dword [0x428378]
cmp eax, esi
jne 0x42268f
push 0x428378
push 0x402710
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov eax, dword [0x428378]
mov ecx, dword [eax]
push eax
call dword [ecx + 0x31c]
lea edx, [ebp - 0x24]
push eax
push edx
call dword [sym.imp.MSVBVM60.DLL___vbaObjSet]
xor ecx, ecx
mov esi, eax
cmp word [edi], cx
mov eax, dword [esi]
setne cl
neg ecx
push ecx
push esi
call dword [eax + 0x6c]
test eax, eax
fnclex
jge 0x4226c7
push 0x6c
push 0x405adc
push esi
push eax
call ebx
lea ecx, [ebp - 0x24]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObj]
mov dx, word [edi]
push 0x422717
mov word [0x428338], dx
jmp 0x422716
ret