Function at 0x422010
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, 0xe0
push ebx
push esi
push edi
mov dword [ebp - 8], esp
mov dword [ebp - 4], 0x401638
mov eax, dword [0x428a18]
xor ebx, ebx
cmp eax, ebx
mov dword [ebp - 0x14], 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 - 0x3c], ebx
mov dword [ebp - 0x4c], ebx
mov dword [ebp - 0x5c], ebx
mov dword [ebp - 0x6c], ebx
mov dword [ebp - 0x7c], ebx
mov dword [ebp - 0x8c], ebx
mov dword [ebp - 0xac], ebx
jne 0x422087
push 0x428a18
push 0x404e78
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov esi, dword [0x428a18]
lea ecx, [ebp - 0x28]
push ecx
push esi
mov eax, dword [esi]
call dword [eax + 0x14]
cmp eax, ebx
fnclex
jge 0x4220b0
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
push 0x14
push 0x404e68
push esi
push eax
call edi
jmp 0x4220b6
mov edi, dword [sym.imp.MSVBVM60.DLL___vbaHresultCheckObj]
mov eax, dword [ebp - 0x28]
lea ecx, [ebp - 0x18]
push ecx
push eax
mov edx, dword [eax]
mov esi, eax
call dword [edx + 0x50]
cmp eax, ebx
fnclex
jge 0x4220d6
push 0x50
push 0x404e88
push esi
push eax
call edi
cmp dword [0x428a18], ebx
jne 0x4220ee
push 0x428a18
push 0x404e78
call dword [sym.imp.MSVBVM60.DLL___vbaNew2]
mov esi, dword [0x428a18]
lea eax, [ebp - 0x2c]
push eax
push esi
mov edx, dword [esi]
call dword [edx + 0x14]
cmp eax, ebx
fnclex
jge 0x42210f
push 0x14
push 0x404e68
push esi
push eax
call edi
mov eax, dword [ebp - 0x2c]
lea edx, [ebp - 0x1c]
push edx
push eax
mov ecx, dword [eax]
mov esi, eax
call dword [ecx + 0x58]
cmp eax, ebx
fnclex
jge 0x42212f
push 0x58
push 0x404e88
push esi
push eax
call edi
mov eax, dword [ebp - 0x18]
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 - 0x20]
call edi
mov ecx, dword [ebp - 0x1c]
push eax
push ecx
call esi
mov edx, eax
lea ecx, [ebp - 0x24]
call edi
push eax
push 0x404ef0
call esi
mov edx, eax
lea ecx, [ebp - 0x14]
call edi
lea edx, [ebp - 0x24]
lea eax, [ebp - 0x1c]
push edx
lea ecx, [ebp - 0x20]
push eax
lea edx, [ebp - 0x18]
push ecx
push edx
push 4
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStrList]
lea eax, [ebp - 0x2c]
lea ecx, [ebp - 0x28]
push eax
mov esi, 2
push ecx
push esi
call dword [sym.imp.MSVBVM60.DLL___vbaFreeObjList]
add esp, 0x10
mov ecx, 8
mov edx, esp
mov eax, 0x404d64
push 0x405fe4
push 0x405f84
mov dword [edx], ecx
mov ecx, dword [ebp - 0x98]
push 0x80000002
mov dword [edx + 4], ecx
lea ecx, [ebp - 0x3c]
push ecx
mov dword [edx + 8], eax
mov eax, dword [ebp - 0x90]
mov dword [edx + 0xc], eax
call fcn.0041ca00
lea edx, [ebp - 0x3c]
lea eax, [ebp - 0xac]
push edx
lea ecx, [ebp - 0x4c]
push eax
push ecx
mov dword [ebp - 0x74], 1
mov dword [ebp - 0x7c], esi
mov dword [ebp - 0x64], ebx
mov dword [ebp - 0x6c], esi
mov dword [ebp - 0xa4], 0x404d64
mov dword [ebp - 0xac], 0x8008
call dword [sym.imp.MSVBVM60.DLL___vbaVarCmpEq]
mov edx, eax
lea ecx, [ebp - 0x5c]
call dword [sym.imp.MSVBVM60.DLL___vbaVarMove]
lea edx, [ebp - 0x7c]
lea eax, [ebp - 0x6c]
push edx
lea ecx, [ebp - 0x5c]
push eax
lea edx, [ebp - 0x8c]
push ecx
push edx
call dword [sym.imp.MSVBVM60.DLL_rtcImmediateIf]
lea eax, [ebp - 0x8c]
push eax
call dword [sym.imp.MSVBVM60.DLL___vbaI2Var]
lea ecx, [ebp - 0x8c]
mov word [0x428338], ax
lea edx, [ebp - 0x7c]
push ecx
lea eax, [ebp - 0x6c]
push edx
lea ecx, [ebp - 0x5c]
push eax
lea edx, [ebp - 0x3c]
push ecx
push edx
push 5
call dword [sym.imp.MSVBVM60.DLL___vbaFreeVarList]
add esp, 0x18
push 0x4222c6
jmp 0x4222bc
lea ecx, [ebp - 0x14]
call dword [sym.imp.MSVBVM60.DLL___vbaFreeStr]
ret